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Introduction 



Most legal expert systems attempt to implement complex models of legal reas- 
oning. Yet the utility of a legal expert system lies not in the extent to which it 
simulates a lawyer's approach to a legal problem, but in the quality of its predic- 
tions and of its arguments. A complex model of legal reasoning is not necessary: 
a successful legal expert system can be based upon a simplified model of legal 
reasoning. 

Some researchers have based their systems upon a jurisprudential approach 
to the law, yet lawyers are patently able to operate without any jurisprudential 
insight. A useful legal expert system should be capable of producing advice 
similar to that which one might get from a lawyer, so it should operate at the same 
pragmatic level of abstraction as does a lawyer — not at the more philosophical 
level of jurisprudence. 

A legal expert system called SHYSTER has been developed to demonstrate 
that a useful legal expert system can be based upon a pragmatic approach to the 
law. SHYSTER has a simple representation structure which simplifies the problem 
of knowledge acquisition. Yet this structure is complex enough for SHYSTER to 
produce useful advice. 

SHYSTER is a case-based legal expert system (although it has been designed 
so that it can be linked with a rule-based system to form a hybrid legal expert 
system). Its advice is based upon an examination of, and an argument about, the 
similarities and differences between cases. SHYSTER attempts to model the way 
in which lawyers argue with cases, but it does not attempt to model the way in 
which lawyers decide which cases to use in those arguments. Instead, it employs 
statistical techniques to quantify the similarity between cases. It decides which 
cases to use in argument, and what prediction it will make, on the basis of that 
similarity measure. 
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Reporter 


12 


1523 


1535 




comprises 


Total 


508 


6534 


7042 


Lines of C code in SHYSTER, by module. Each module 


two files: a 


definition (.h) file and an implementation (. c) file. 





SHYSTER is of a general design: it provides advice in areas of case law that 
have been specified by a legal expert using a specification language, indicating the 
cases and attributes of importance in those areas. Four different, and disparate, 
areas of law have been specified for SHYSTER, and its operation has been tested 
in each of those legal domains. 

Testing of SHYSTER in these four domains indicates that it is exception- 
ally good at predicting results, and fairly good at choosing cases with which to 
construct its arguments. SHYSTER demonstrates the viability of a pragmatic 
approach to legal expert system design. 



SHYSTER is implemented using a dozen modules, written in ISO C. 1 (A break- 
down, by module, of the number of lines of C code in SHYSTER is given in 
figure 1.) This report provides complete code listings of all twelve modules. This 
code, and the case law specifications used to test SHYSTER, are available on the 
worldwide web. 2 Full details of the design, implementation, operation and testing 
of SHYSTER are given elsewhere. 3 
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The Shyster module (§1) is the top-level module for the whole system. 
The Statutes module (§2) is the top-level module for a rule-based system, 
presently unimplemented. The Cases module (§3) is the top-level module for 
the case-based system. The Tokenizer and Parser modules (§4 and §5) token- 
ize and parse a program written in SHYSTER'S case law specification language. 
The Dumper module (§6) displays the information that has been parsed. The 
Checker module (§7) checks for evidence of dependence between the attributes. 
The Scales module (§8) determines the weight of each attribute. The Adjuster 
module (§9) allows the legal expert to adjust the weights of the attributes. The 
Consultant module (§10) interrogates the user as to the attribute values in the 
instant case. The Odometer module (§11) determines the distances between 
the leading cases and the instant case, and the Reporter module (§12) writes 
SHYSTER'S legal opinion. 



The format used for the display of C code in this report is based on that of the 
CWEB system. 4 Reserved words and preprocessor commands are set in boldface 
type. Identifiers are set in italics. String constants and character constants are 
set in a typewriter font, with " u " representing a space. Some operators are 
represented by special symbols, as explained in figure 2. 5 
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SHYSTER's external identifiers are made up of upper- and lower-case letters. 
Static identifiers consist only of lower-case letters. Identifiers in all upper-case 
are enumerated identifiers and other constants. 

An index to all of the identifiers which appear in the code listings, and which 
are not reserved words or preprocessor commands, is at the end of this report. 



Much of SHYSTER's output is in I^TgX format: i.e. it is suitable for processing 
by the WTj^i document processor. 6 This contributes to SHYSTER's portability, 
as WFpX is widely available on many platforms. Using WTj^i simplifies the foot- 
noting of text (\f ootnote{ . . .}), allows some data to be displayed in a clear 
and economical tabular format (\begin{tabular} . . .), and ensures the aesthetic 
quality of the output. 



1 International standard ISO/IEC 9899: 1990; Australian standard AS 3955-1 99 1. Kernighan 
and Ritchie 1988 describe ANSI C which is the same as ISO C. 

2 http://cs. anu.edu.au/software/shyster 

3 Popple 1993, 1996. 

4 Knuth and Levy 1994. CWEB is a version of Knuth's WEB system (1986a, 1986b) adapted 
to C. The CWEB system of structured documentation was not used in the development of 
SHYSTER, but CWEB's approach to "pretty-printing" C code has been adopted for this report. 
This report was prepared using the L^TgX document processor; LTjtX code was generated from 
SHYSTER's C code using a preprocessor constructed by the author. 

5 All of the special symbols in figure 2 are used by CWEB, except for x : CWEB uses * for 
both indirection and multiplication. 

6 Lamport 1986 describes IATjtJX which is a set of macros for Knuth's TgX system (1984, 
1986a). SHYSTER's LT E X output is suitable for processing by MT E X version 2.09 (25 March 
1992) and TgX version 3.141. It can also be processed, in "compatibility mode," by WFpK2e 
which is described by Lamport 1994. 
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shyster .h 

/* This is the header file for the Shyster module. It is included by all twelve modules. */ 

/* version and copyright information */ 

#define Shyster_Version "SHYSTER u version u l . 0" 

^define Copyright_Message "Copyright u James u Popple u 1993" 

/* a string which is written to stderr if SHYSTER is invoked without arguments */ 

^define usage_string \ 
"usage :\t" \ 

"shyster u [ u -a u ] u [ u -c u f ilename u ] u [ u -d u f ilename u ] u [ U -D u f ilename u ] u [ u -e u ] \n" \ 
"\t\t [ u -h u number u iiumber u ] u [ u -i u ] u [u-luf ilename u ] u [ u -p u f ilename u ] \n" \ 
"\t\t [ u -qJ u [ u -r u f ilename u ] u [ u -w u f ilenamej \n" 

/* the versions of LSTgX and TgX for which SHYSTER has been developed */ 

#define LaTeX_Version "LaTeX u version u 2 .09 u <25 u March u 1992>" 
#define TeX_Version "TeX u version u 3. 141" 

/* maxima */ 

^define Max_Filename_Length 256 
^define Max_Error_Message_Length 256 
#define Max_LaTeX_Line_Width 64 

/* other constants */ 

^define Empty_String " " 

#define NulLCharacter >\0> 

^define Space_Character ' u ' 

^define Carriage_Return_Character '\n' 

^define Top_Level 

^define No_Hang 

^define Hang 1 
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/* functions whose returned values are always ignored */ 

^define fprintf (void) fprintf 
^define free (void) free 
^define gets (void) gets 
^define sprintf (void) sprintf 

/* simple types */ 

typedef unsigned int cardinal; 
typedef float floating-point; 
typedef char * string; 
typedef FILE *file; 

/* enumerated type */ 

typedef enum { 

FALSE, 
TRUE 
} boolean; 

/* external functions */ 

extern void 

Indent( 

file stream, 
cardinal level); 

extern void 

Write ( 

file stream, 

string write_string, 

const string suffix, 

const cardinal level, 

const boolean hanging jindent); 

extern void 

Write_Error_Message_A nd_Exit ( 
file stream, 

const string module_name, 
string message); 

extern void 

Write_ Warning_Message ( 
file stream, 

const string module_name, 
string message, 
const cardinal level) ; 

extern void 

Wr ite_La TeX_Header ( 
file stream, 
boolean inputablejatex); 

extern void 

Wrtte.La TeX_ Trailer ( 
file stream, 
boolean inputablejatex); 
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extern boolean 
Is_Digit( 

int ch); 



shyster. c 

/* This is the implementation file for the Shyster module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include " shyster. h" 
^include " cases. h" 
^include " statutes. h" 

extern void 

Indent( 

file stream, 
cardinal level) 

/* Writes the equivalent of 4 x level spaces (1 tab = 8 spaces). */ 

{ 

while (level > 1) { 

fprintf (stream, "\t"); 
level — = 2; 

} 

if (level = 1) 

fprintf (stream, " uuuu "); 



static void 

write_ line( 

file stream, 

string *write_string, 

const cardinal level, 

const boolean hangingjndent, 

cardinal count) 

/* Writes a line of characters from *write_string. Writes characters up to the last space in the 
next count characters, then breaks the line and indents the next line by 4 x level spaces 
(plus an extra two spaces if hangingjndent is TRUE). Leaves *write_string pointing to the 
character after the space at which the line was broken. */ 

{ 

/* find the last space that will fit on the line */ 

while ((*(*write_string + count) =/= Space_Character) A (count ^ 0)) 
count — ; 
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if (count = 0) { 

/* there is no convenient place to break this line, so write as much as will fit, with a °/ 
character at the end of the line, and don't indent the next line */ 

for (count = Max_LaTeX_Line_Width — level x 4 — 1; count =/= 0; count — ) 

fprintf (stream, "%c" , *((*write_string)++)); 
fprintf (stream, "%%\n"); 

} else { 

/* there is (at least) one space in this line, so write each of the characters up to the 
last space, break the line, and indent the next line */ 

while (count ^ 0) { 

fprintf (stream, "%c" , *((*write_string)++)); 
count — ; 

} 

(*write_string)++; 
fprintf (stream, "\n"); 
Indent(stream, level); 
if (hanging Jindent) 

fprintf (stream, "uu")i 
} 



extern void 

Write ( 

file stream, 

string write_string, 

const string suffix, 

const cardinal level, 

const boolean hangingjndent) 

/* Writes write_string plus suffix. Breaks lines (at spaces) so that they are no longer than 
Max_LaTeX_Line_Width characters. Indents lines by 4 x level spaces. Indents lines after the 
first by a further two spaces, if hangingjndent is TRUE. (Assumes that suffix is less than 
Max_LaTeX_Line_Width — level x 4 characters long.) */ 

{ 

cardinal count = 0, 

suffixjength = 0, 

linejength = Max_LaTeX_Line_Width — level x 4; 
boolean hanged = FALSE; 

if (write_string = NULL) 

/* there is no string to write */ 

fprintf (stream, "%s", NulLString); 
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else { 

/* there is a string to write */ 

if (suffix =/= NulLString) 

/* there is a suffix, so set suffixjength to the number of characters in the suffix, up 
to (but not including) the first carriage return (if there is one) */ 

while ((*(suffix + suffixjength) =/= NulLCharacter) A 

(*(suffix + suffixjength) =/= Carriage_Return_Character)) 
suffix Jength++ ; 

Indent (stream, level); 

while (*(write_string + count) =/= NulLCharacter) { 

if (count = linejength) { 

/* there are more characters left in the string than will fit on this line, so write 
as much as will fit */ 

write Jine(stream, &iwrite_string, level, hanging Jndent, count); 
if (-ihanged A hanging Jndent) { 

linejength — = 2; 

hanged = TRUE; 

} 

count = 0; 

} 

count++; 

} 

/* the rest of the string will fit on a line */ 

if (count + suffixjength > linejength) { 

/* ... but the rest of the string plus the suffix will be too long to fit on a line, so 
write as much as will fit */ 

writejine(stream, &iwrite_string, level, hanging Jndent, count); 

/* the rest of the string plus the suffix will fit on the new line; set count to be the 
number of characters still to be written */ 

count = 0; 

while (*(write_string + count) =/= NulLCharacter) 
count++; 
} 
/* write the rest of the string */ 

while (count =/= 0) { 

fprintf (stream, "°/ c", *write_string++); 
count — ; 

} 
} 

/* write the suffix */ 
fprintf (stream, "%s\n", suffix); 
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extern void 

Write_Error_Message_A nd_Exit ( 
file stream, 

const string module_name, 
string message) 

/* Writes "ERROR (module_name) : message." to stderr and to stream. Exits with a value of 
EXIT.FAILURE (denned in stdlib.h). */ 

{ 

static char full_message[Max_Error_Message_Length\; 

sprintf (fulLmessage, "ERR0R u (°/ s) : u °/ s", module_name, message); 

Write (stderr, fulLmessage, " An", Top_Level, Hang); 

/* write to stream only if stream =/= stdout (the error message has already been written to 
stderr) */ 

if ((stream ^ NULL) A (stream =/= stdout)) 

Write(stream, fulljnessage, " An", Top_Level, Hang); 

exit(EXIT_FAIL URE) ; 
} 

extern void 

Write_ Warning_Message( 
file stream, 

const string module_name, 
string message, 
const cardinal level) 

/* Writes "WARNING {module _name) : message." to stderr and to stream. */ 

{ 

static char full_message[Max_Error_Message_Length\; 

if (stream ^ NULL) { 

sprintf (fulLmessage, "WARNING u (°/ s) : u °/ s", module_name, message); 

Write (stderr, fulLmessage, " An", Top_Level, Hang); 

/* write to stream only if stream =/= stdout (the warning message has already been 
written to stderr) */ 

if (stream =/= stdout) 

Write(stream, fulLmessage, " An", level, Hang); 
} 
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extern void 

Wr ite_La TeX_Header ( 
file stream, 
boolean inputablejatex) 

/* Writes IATjrjX code to go at the start of a I^TjtX document. Writes code that can be included 
in another I^TjtX document (i.e. not stand-alone code), if inputablejatex is TRUE. */ 



{ 



} 



fprintf (stream, " yB°/o U Produced u by u 7os\n\n" 

"°/o°/ou°/os\n\n", Shyster_Version, Copyright_Message); 
if (-^inputablejatex) 

fprintf (stream, "7 o yB U This u is u a u stand-alone u LaTeXuf ile.\n"); 
else 

fprintf (stream, " /oy» u This u is u not u a u stand-alone u LaTeX u f ile . \n" 

" /o /ouIn.clude u it u in u a u LaTeX u document u usinguthe u \\input u commarid. \n"); 
fprintf (stream, "yB°/ouUse u /oS u and u / s .\n\n", LaTeX_Version, TeX_Version); 
if (-linputablejatex) 

fprintf (stream, "Wdocumentstyle [12pt] {article}\n" 

"\\oddsidemargin=-5 . 4mm\n" 

"\\evensidemargin=-5 . 4mm\n" 

" \\topmargin=-5 . 4mm\n" 

"\\headheight=Omm\n" 

"\\headsep=Omm\n" 

"\\textheight=247mm\n" 

"\\textwidth=170mm\n" 

"\\f ootskip=15mm\n" 

"\\pagestyle{plain}\n\n" 

" \\begin{document}\n\n" ) ; 



extern void 

Write Jja TeX_ Trailer ( 
file stream, 
boolean inputablejatex) 

/* Writes LM?gX code to go at the end of a I^TgX document. Writes code that can be included 
in another IATjjX document (i.e. not stand-alone code), if inputablejatex is TRUE. */ 

{ 

if (-linputablejatex) 

fprintf (stream, "\\end{document}-\n"); 
} 

extern boolean 
IsJJigit( 

int ch) 

/* Returns TRUE, iff ch is a digit (0 . . . 9). */ 

{ 

return ((ch > Zero_Character) A (ch < Nine_Character)); 

} 
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static void 

error _exit( 

const string message) 

{ 

Write_Error_Message_And_Exit(NULL, "Shyster", message); 

} 

static void 

parse_arguments( 
int argc, 
string *argv, 
boolean * adjust, 
boolean *echo, 

cardinal * hypothetical_reports, 
cardinal * hypothetical_changes, 
boolean *inputable_latex, 
boolean ^verbose, 
string * specification_filename, 
string * distances_filename, 
string *log_ftlename, 
string *probabilities_ftlename, 
string * report_filename, 
string *dump_ftlename, 
string *weights_ftlename) 

/* Parses the UNIX command line arguments (ar^u[l] . . . argv[argc — 1]) and stores the in- 
formation in the variables pointed to by the 13 other parameters. */ 



{ 



string argument; 

char message[Max_Error_Message_Length] ; 

if (argc < 2) { 

/* no argument was provided, so write usage_string to stderr and exit with a value of 
EXIT_FAILURE (defined in stdlib.h) */ 

fprintf (stderr, usage_string); 

exit(EXIT_FAIL URE) ; 
} 
/* skip over the first argument (the name by which SHYSTER was invoked) */ 

argc — ; 
argv++; 

/* while there are still arguments to parse ... */ 

while (argc > 0) { 

argument = *argv; 

if (*argument++ =£ '-') 

/* this argument is not a switch */ 

break; 
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switch (*argument++) { 
case ' a ' : 

/* -a: enable weight adjustment */ 

* adjust = TRUE; 
break; 



/* -c specification: read the case law specification from " specification . els" */ 

if (argc > 1) { 
argc — ; 
argv++: 

* specificationjilename = *argv; 
} else 

error_exit( "must u supply u a u f ilename u with u -c"); 
break; 

case ' d ' : 

/* -d distances: write distances to "distances- area. tex" */ 

if (argc > 1) { 
argc — ; 
argv++: 

* distancesjilename = *argv; 
} else 

error _ exit ("must u supply u a u f ilename u with u -d"); 
break; 

case ' D ' : 

/* -D dump: write dump to "dump. tex" */ 

if (argc > 1) { 
argc — ; 
argv++: 

* dump_ftlename = *argv; 
} else 

error _exit( "must u supply u a u f ilename u with u -D"); 
break; 



/* -e: enable echo mode */ 

*echo = TRUE: 
break; 
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case 'h' 



/* -h r c: hypothesize, reporting on r hypothetical per result with a limit of c 
changes */ 

if (argc > 2) { 
argc — ; 
argv++; 

while (**argv =/= NulLC'haracter) { 
if (->Is_Digit(**argv)) 

error_ exit(" argumerit u to u -h u must u be u two u numbers ") ; 
*hypothetical_reports = (10 x *hypothetical_reports) + 
(cardinal) **argv — (cardinal) Zero_Character; 
(*argv)++; 

} 

argc — ; 

argv++; 

*hypothetical_changes = 0; 

while (**argv =/= NulLC'haracter) { 

if (->Is_Digit(**argv)) 

error_e:ri£("argumentuto u -h u must u be u two u numbers"); 

*hypothetical_changes = (10 x *hypothetical_changes) + 
(cardinal) **argv — (cardinal) Zero_C'haracter; 

(*argv)++\ 

} 
} else 

error _ exit ("must u supply u two u numbers u with u -h"); 

break; 



/* -i: write IATgX code that can be included in another IATjtJX document 
(i.e. not stand-alone code) */ 

*inputable_latex = TRUE; 
break; 

case ' 1 ' : 

/* -1 log: write log to "Zog.log" */ 

if (argc > 1) { 

argc — ; 

argv++; 

*log_ftlename = *argv; 
} else 

error _exit( "must u supply u a u f ilename u witb. u -l " ) ; 
break; 
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/* -p probabilities: write probabilities to " probabilities .tex" */ 

if (argc > 1) { 

argc — ; 

argv++: 

^probabilities filename = *argv; 
} else 

error_exit( "must u supply u a u f ilename u with u -p " ) ; 
break; 



/* -q: enable quiet mode (don't summarize cases, etc.) */ 

^verbose = FALSE \ 
break; 



/* -r report: write report to " report- area .tex" */ 

if {argc > 1) { 

argc — ; 

argv++: 

*report_ftlename = *argv; 
} else 

error, exit ("must u supply u a u f ilename u with u -r"); 
break; 



/* -w weights: write weights to "weights .tex" */ 

if (argc > 1) { 

argc — ; 

argv++: 

*weights_ftlename = *argv; 
} else 

error _ exit ("must u supply u a u f ilename u with u -w"); 
break; 

default: 

sprintf (message, "unrecogriized u option u - / s", argument — 1); 

error _exit(message)\ 

break; 

} 

argc — ; 
argv++: 
} 
} 
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extern int 

main( 

int argc, 
string *argv) 

/* Extracts the options and arguments from the UNIX command line, initializes the rule-based 
system and the case-based system, then invokes the rule-based system. */ 



{ 



char filename [Max_Filename_Length] , 

message [Max_Error_Message_Length] ; 
statute_law_specification statutejaw ; 
case_law_specification casejaw; 
file log_stream; 
boolean adjust = FALSE, 

echo = FALSE, 

inputablejatex = FALSE, 

verbose = TRUE; 
cardinal hypotheticaLreports = 0, 

hypotheticaLchanges; 
string specification_filename = NULL, 

distances jilename = NULL, 

log_filename = NULL, 

probabilities_filename = NULL, 

report_filename = NULL, 

dump_filename = NULL, 

weights_filename = NULL; 

/* extract the options and arguments from the UNIX command line */ 

parse_arguments(argc, argv, kiadjust, kiecho, &zhypothetical_reports, !khypothetical_changes, 
Ikinputablejatex, Ikverbose, lkspecification_filename, & distances _filename, 
lklog_filename, &iprobabilities_filename, h,report_filename, &dump_ftlename, 
&Lweights_filename); 

/* write version and copyright information to stdout */ 

fprintf (stdout, "°/os\n\n / s\n\n", Shyster_Version, Copyright_Message); 

if (log_filename = NULL) 

/* no log filename was specified, so log information will be written to stdout */ 

log_stream = stdout; 
else { 

/* open the log file */ 

sprintf (filename, "°/,s'/,s" , log_filename, Log_File_Extension); 
if ((log_stream = fopen(filename, "w")) = NULL) { 

sprintf (message, "can't u open u log u f ile u \"°/ s\" ", filename); 

error_exit (message); 
} 
/* write version and copyright information to the log file */ 

fprintf (log_stream, "%s\n\n" 

"7os\n\n", Shyster_Version, Copyright_Message); 
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/* initialize the rule-based system */ 

statutejaw = Initialize_Statutes(); 

/* initialize the case-based system */ 

casejaw = Initialize_Cases(log_stream, inputablejatex, verbose, speciftcation_ftlename, 
dump Jilename, probabilities Jilename, weights Jilename); 

/* invoke the rule-based system */ 

Statute JLaw (log _stream, statutejaw, casejaw, adjust, echo, inputablejatex, verbose, 

hypotheticaLreports, hypotheticaLchanges, distances filename, weightsjllename, 
report Jilename) ; 

/* write "Finished." to the log file (if there is one) and to stdout */ 

if {log jilename ^ NULL) 

fprintf (log_stream, "Finished. \n"); 
fprintf (stdout, "Finished . \n" ) ; 

/* close the log file */ 

if (fclose(log_stream) = EOF) { 

sprintf (message, "can't u close u log u f ile u \"°/»s\" ", filename); 
error _exit(message)\ 

} 

/* everything worked, so exit with a value of EXIT_SUCCESS (defined in stdlib.h) */ 

return EXIT.SUCCESS; 




The Statutes module 



statutes .h 

/* This is the header file for the Statutes module. It is also included by the Shyster 
module. */ 

/* structure type */ 

typedef struct { 

void * dummy; 
} statute_law_specification; 

/* external functions */ 

extern statute_law_specification 
Initialize_Statutes() ; 

extern void 

Statute_Law( 

file log_stream, 

statute Jaw_speciftcation statutejaw, 

case_law_speciftcation casejaw, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

string distances .filename, 

string weights_filename, 

string report_filename); 
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20 The Statutes module 



statutes . c 

/* This is the implementation file for the STATUTES module. */ 

^include (stdio.h) 
^include " shyster. h" 
^include " cases. h" 
^include " statutes. h" 

extern statute_law_specification 
Initialize_Statutes() 

/* Returns a pointer to a dummy structure. (If implemented, it would initialize the rule-based 
system, by reading a statute law specification, and return a pointer to SHYSTER'S internal 
representation of that specification.) */ 



{ 



} 



statute_law_specification statutejaw ; 

statutejaw. dummy = NULL; 
return statutejaw: 



extern void 

Statute_Law( 

file log_stream, 

statute_law_specification statutejaw, 

caseJaw_specification casejaw, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

string distances jilename, 

string weights filename, 

string reportjilename) 

/* Prompts the user for an identifier, then invokes the case-based system seeking advice in 
the area corresponding to that identifier. The result that the case-based system returns is 
written to log_stream. */ 



{ 



char areajdentifier [MaxJdentifier_Length] ; 
string resultjdentifier; 

/* prompt the user for a case law area identifier */ 

fprintf (stdout, "Case u law u area u identif ier : u "); 
gets(areajdentifier) ; 

fprintf (log _str earn, "Case-based u systein u called u with u area u identif ier u \"°/,s\" . \n\n" , 

areajdentifier) ; 
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/* invoke the case-based system */ 

resultjdentifier = Case_Law(log_stream, casejaw, areajdentifier, adjust, echo, 

inputablejatex, verbose, hypotheticaLreports, hypotheticaLchanges, Top_Level, 
distances filename, weights_ftlename, report_ftlename); 

/* write the result identifier to the log file */ 

if (resultjdentifier =/= NULL) 
fprintf ( log_stream, 

"Case-based u systein u returrieduresult u id.entif ier u \"°/ s\" . \n\n" , 

resultjdentifier) ; 




The Cases module 



cases .h 

/* This is the header file for the CASES module. It is included by all twelve modules. */ 

/* maxima */ 

^define Max_Identifier_Length 16 
^define Max_Attribute_Options 4 

/* the number of characters first allocated for a string, and the number of extra characters 
allocated if that string has to be extended */ 

^define String .Increment 256 

/* a "pseudo-infinite" weight for the calculation of weighted correlation coefficients */ 

#define Very_Heavy_Indeed 1000000.0 

/* the threshold of likelihood, below which a given number of yes/yes pairs is considered 
unusually high or unusually low */ 

#define Threshold 0.05 

/* arithmetic is precise to (log Precision) decimal places */ 

^define Precision 100.0 

/* distance and weight comparisons are precise to (log Distance_Precision) decimal places (this 
is the threshold within which two cases are considered equidistant, or two weights are 
considered equal) */ 

^define Distance_Precision 100.0 

/* the format for the display of floating point numbers (the number of decimal places should 
be (log Distance_Precision) ) */ 

^define Floating _Point_Format "%.2f " 



23 



24 §3 The Cases module 



/* string constants for output to I^TgX files */ 

#define Raise_Height "0. 6\\ht\\strutbox" 
^define Column_Separation "Wtabcolsep" 
^define Matrix_Column_Separation "0.4em" 
^define Heading "Wsubsection*" 
^define Subheading "Wsubsubsection*" 
^define Skip "WmedskipWno indent" 
^define Identifier_Font "\\sf " 
#define NulLStnng "{ [{\\it u null u string\\/}] }" 

/* special IATjtjX symbols: 

• Yes_Symbol 
x No_Symbol 

Unknown_Symbol 

■ Functional_Dependence_Symbol 

• Stochastic_Dependence_Symbol 

=> Specifted_Direction_Symbol 

=> Ideal_Point_Direction_Symbol 

^ Centroid_Direction_Symbol 

=4> All_Directions_Symbol 

-£4> External_Area_Symbol 
<= External_Result_Symbol 

V Disjunction_Symbol */ 

#define Yes_Symbol "$\\bullet$" 

#define No_Symbol "$\\times$" 

^define Unknown_Symbol " " 

^define Functional_Dependence_Symbol " Wrule [0 . 25ex] {0 . 35em}{0 . 35em}- " 

^define Stochastic_Dependence_Symbol "$\\bullet$" 

^define Specifted_Direction_Symbol "$\\Rightarrow$" 

^define Ideal_Point_Direction_Symbol \ 

"$\\stackrel{\\scriptscriptstyle u I~H\\Rightarrow}$" 
^define Centroid_Direction_Symbol \ 

"$\\stackrel{\\scriptscriptstyle\\mu~}{\\Rightarrow}$" 
^define All_Directions_Symbol \ 

"$\\stackrel{\\scriptscriptstyle\\star~M\\Rightarrow}$" 
^define External_Area_Symbol "$\\Leftrightarrow$" 
^define External_Result_Symbol "$\\Lef tarrow$" 
^define Disjunction_Symbol "$\\vee$" 

/* file extensions */ 

^define LaTeX_File_Extension ".tex" 
^define Log_File_Extension ".log" 
^define Specification_File_Extension ".els" 
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/* character constants */ 

^define Attribute_Vector_Begin_Character ' (' 

^define Attribute_Vector_End_Character ')' 

^define Little_A_Character 'a' 

^define Little _Z_Character 'z' 

^define Big_A_Character 'A' 

^define Big_Z_Character 'Z' 

^define Zero_Character '0' 

^define Nine_Character '9' 

^define Yes_Character 'Y' 

^define No_Character 'N' 

^define Unknown_Character 'U' 

^define Help_C'haracter 'H' 

^define Quit_Character 'Q' 

/* other constants */ 

^define Year_Digits 4 
^define Yes_Value 1.0 
#define No.Value 0.0 

/* enumerated types */ 

typedef enum { 

NO, 
YES, 

UNKNOWN 
} attribute_value_type; 

typedef enum { 

NEARER, 
EQUIDISTANT, 
FURTHER 
} relative_distance_type; 

/* structure types */ 

typedef struct { 

boolean infinite; 
floatingpoint finite; 
} weight_type; 

typedef struct { 

cardinal infinite; 
floating-point finite; 
} distance_subtype; 

typedef struct { 

distance_subtype known; 
distance_subtype unknown; 
} distance_type; 

typedef struct { 

boolean meaningless; 
floating-point unweighted; 
floating-point weighted; 
} correlation_type; 
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typedef struct { 

distance_type distance ; 

cardinal number_of_known_differences, 

number _oj_known_pairs\ 
floatingjpoint weighted_association_coefficient; 
correlation_type correlation_coefficient; 
} metrics_type; 

typedef struct vector ^element { 

attribute_value_type attribute jualue; 
struct vector_element *next; 

} vector_element; 

typedef struct matrix_element { 

attribute_value_type attribute jualue; 
struct matrix_element *casejaext, 

* attribute jnext; 
} matrix_element; 

typedef struct centroid_element { 

boolean unknown] 

floating-point value; 

struct centroid_element *next; 
} centroid_element; 

typedef struct probability_element { 
boolean unknown, 

functionaLdependence; 
floatingjpoint probability jthat_or_f ewer, 

probability jthat_orjm,ore; 
struct probability _element *next; 
} probability _element; 

typedef struct identifter_list_element { 

string identifier; 

struct identifier _list_element *next; 
} identifier Jistjelement; 

typedef struct weight_list_element { 

weightjtype weight] 

struct weight_list_element *next; 
} weight_list_element; 

typedef struct hypothetical_list_element { 
vector ^element *hypothetical_head; 
distancejtype nearest _neighbour_distance; 
struct hypothetical_list_element *next; 

} hypotheticalJist_element; 
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/* the structure type kase is so-named because the more obvious case is a reserved word */ 

typedef struct kase { 

cardinal number; 

string name; 

string short_name; 

string citation; 

cardinal year; 

string court_string; 

cardinal court_rank; 

matrix_element *matrix_head; 

string summary; 

boolean summarized; 

metrics_type metrics; 

struct kase * equidistant_known_next, 
* equidistant_unknown_next, 
*next; 
} kase; 

typedef struct result { 
string identifier, 

string; 
kase *case_head, 

*nearest_known_case, 

*nearest_unknown_case; 
relative_distance_type nearest_known_compared_with_unknown; 
distance_subtype specified_direction; 
struct result *equidistant_specifted_direction_next; 
vector ^element *ideal_point_head; 
metrics_type idealjpointjmetrics; 
struct result * equidistant_ideal_point_next; 
distance_subtype ideal_point_direction; 
struct result *equidistant_ideal_point_direction_next; 
centroid_element *centroid_head; 
metrics_type centroidjnetrics; 
struct result * equidistant_centroid_next; 
distance_subtype centroid_direction; 
struct result *equidistant_centroid_direction_next; 
hypothetical_list_element *hypothetical_list_head; 
struct result * equidistant_next, 

*next; 
} result; 

typedef struct direction_list_element { 

result * result; 

struct direction_list_element *next; 
} direction_list_element; 

typedef struct local_attribute_type { 
string question, 
help; 
} local_attribute_type; 
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typedef struct external_attribute_type { 
string areajdentifier; 

identifier J,ist_element *yes_identifter_head, 
*no_identifter_head, 
*unknown_identifter_head; 
} external_attribute_type; 

typedef struct attribute { 
cardinal number; 
boolean externaLattribute; 
union { 

local_attribute_type local; 

external_attribute_type external; 
} details; 
string yes; 

direction_list_element *yes_direction_head; 
string no; 

direction_list_element * no_direction_head; 
string unknown; 

direction_list_element *unknown_direction_head; 
matrix_element *matrix_head; 
floating_point mean; 
weight_type weight; 
weight_list_element *weights_head; 
probability _element *probability_head; 
struct attribute *next; 
} attribute; 

typedef struct area { 

string identifier, 
opening, 
closing; 

result *result_head; 

cardinal number -_of .results; 

attribute *attribute_head; 

cardinal number _oj_attributes; 

boolean infinitejweight; 

boolean correlation_coefficients; 

result *nearest_result; 

result *nearest_ideal_point; 

result *nearest_centroid; 

result * strong est_specifted_direction; 

result * strong est_ideal_point_direction; 

result * strong est_centroid_direction; 

struct area *next; 
} area; 

typedef struct court { 

string identifier, 
string; 

cardinal rank; 

struct court *next; 
} court; 
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typedef struct { 

court *court_head; 
area *area_head; 
} case_law_speciftcation; 

/* external functions */ 

extern boolean 
Is_Zero( 

floating jpoint x); 

extern boolean 
Is_Equal( 

floatingpoint x, 

floating-point y, 

floating-point precision)] 

extern boolean 
Is_Less ( 

floating-point x, 

floating-point y, 

floating-point precision)] 

extern boolean 

I s_Zero_Subdi stance ( 

distance_subtype x); 

extern boolean 
Is_Zero_Distance ( 

distance_type x); 

extern boolean 
Attribute_ Value( 

attribute_value_type attribute-value, 

floating-point rvalue); 

extern attribute_value_type 
Nearest_Attribute_ Value( 

floating-point value)] 

extern void 

Write_Floating_Point ( 
file stream, 

floating-point number, 
string warning_string) ; 

extern case_law_specification 
Initialize_Cases( 

file log_stream, 

boolean inputablejatex, 

boolean verbose, 

string specification_filename, 

string dump_filename, 

string probabilities_filename, 

string weights_filename); 
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extern string 
Case_Law( 

file log_stream, 

case_law_specification casejaw, 

string areajdentifier, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distancesjilename, 

string weights _filename, 

string report_filename); 



cases . c 

/* This is the implementation file for the CASES module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include (string. h) 
^include (math.h) 
^include " shyster. h" 
^include " cases. h" 
^include "tokenizer .h" 
^include "parser. h" 
^include " dumper. h" 
^include " checker. h" 
^include " scales. h" 
^include "adjuster. h" 
^include "consultant .h" 
^include "odometer .h" 
^include "reporter. h" 

static void 

error_exit( 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Cases", message); 

} 

static void 

warning ( 

file stream, 

const string message, 

cardinal level) 



Write_Warning_Message(stream, "Cases", message, level); 
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extern boolean 
Is_Zero( 

floating-point x) 

/* Returns TRUE, iff x = precise to (log Precision) decimal places. */ 

{ 

return floor(( double) x x Precision + 0.5) = 0.0; 

} 

extern boolean 
Is_Equal( 

floating-point x, 

floating-point y, 

floating-point precision) 

/* Returns TRUE, iff x = y precise to (log precision) decimal places. */ 

{ 

return floor((douhle) x x precision + 0.5) = floor ((double) y x precision + 0.5); 

} 

extern boolean 
Is_Less ( 

floating-point x, 

floating-point y, 

floating-point precision) 

/* Returns TRUE, iff x < y precise to (log precision) decimal places. */ 

{ 

return /Zoor((double) x x precision + 0.5) < /Zoor((double) y x precision + 0.5); 

} 

extern boolean 
Is_Zero_Subdistance ( 

distance_subtype x) 

/* Returns TRUE, iff both of i's infinite and finite components are zero. */ 

{ 

return (x.infinite = 0) A Is_Zero(x.finite); 

} 

extern boolean 
Is_Zero_Distance ( 

distance_type x) 

/* Returns TRUE, iff both of x's known and unknown components are zero. */ 

{ 

return Is_Zero_Subdistance(x.known) A Is_Zero_Subdistance(x. unknown); 

} 
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32 §3 The Cases module 



extern boolean 
Attribute_ Value( 

attribute_value_type attribute_value, 

floating jpoint rvalue) 

/* Sets rvalue to 1, if attribute_value is YES; to 0, if attributejvalue is NO. Returns TRUE, iff 
attributejvalue is known. */ 

{ 

switch (attributejvalue) { 
case YES: 

* value = Yes_Value; 
return TRUE; 
case NO: 

rvalue = No_Value; 
return TRUE; 
default : 

return FALSE; 
} 
} 

extern attribute_value_type 
Nearest_Attribute_ Value( 

floating-point value) 

/* Returns the nearest attribute value to value (0 < value < 0.5: NO; 0.5 < value < 1: yes) */ 

{ 

if (value < 0.5) 
return NO; 
else 

return YES: 
} 

extern void 

Write_Floating_Point ( 
file stream, 

floating-point number, 
string warning _string) 

/* Writes number, precise to (log Precision) decimal places. If warning string is not empty, it 
is written after number. */ 

{ 

if (Is_Less(number, 0.0, Precision)) 
fprintf (stream, "$-$"); 

fprintf (stream, Floating_Point_Format, 

floor(fabs((douhle) number) x Precision + 0.5) / Precision); 

if (strcmp(warning_string, Empty _String)) 

fprintf (stream, "\\rlap{\\makebox [Wtabcolsep] {°/»s}}" , warning_string): 
} 
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extern case_law_specification 
Initialized ases( 

file log_stream, 

boolean inputablejatex, 

boolean verbose, 

string specificationjilename, 

string dump_filename, 

string probabilities Jilename, 

string weights filename) 

/* Calls the TOKENIZER and PARSER to read the case law specification in speciftcation_ftlename 
and build an internal representation of that specification. Invokes the Dumper to dump 
that internal representation to dump_filename. Uses the Checker to check for attribute de- 
pendence, and to write the probabilities to probabilities_ftlename. Calls the SCALES module 
to assign weights to all the attributes, and to write those weights to weights _filename. Re- 
turns a pointer to SHYSTER'S internal representation of the specification with all attributes 
weighted. */ 



{ 



file speciftcation_stream = NULL, 

dump_stream = NULL, 

probabilities_stream = NULL, 

weights_stream = NULL; 
char filename [Max_Filename_Length] ; 
char message [Max_Error_Message_Length] ; 
case_law_specification casejaw; 
area *area_pointer; 
result *result_pointer; 

if (specificationjilename = NULL) 

/* there is no specification filename */ 

error_exit(log_stream, "no u case u law u specif ication u f ile u specif ied"); 

/* open the case law specification file */ 

sprintf (filename, "'/,s'/,s n , specification_filename, Specification_File_Extension); 
if ((specification_stream = fopen(filename, "r")) = NULL) { 

sprintf (message, "can't u open u case u lawuspecif ication u f ile u \"°/ s\"",/iZeraarae); 

error_exit(log_stream, message); 

} 

fprintf ( log_stream, 

"Reading u case u lawuspecif ication u f rom u \"°/ s\" u . . .\n\n" , filename); 

casejaw = Parse_Specification(specification_stream, log_stream); 

if (casejaw. areajiead = NULL) 

/* no areas were specified in the specification file */ 

error _exit(log_stream, "no u case u law u specif ied"); 
/* close the case law specification file */ 

if (fclose(specification_stream) = EOF) { 

sprintf (message, " can ' t u close u case u law u specif icat ion u f ile u \ " °/ s\ " " , filename) ; 

error_exit(log_stream, message); 
} 
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fprintf ' (log_stream, "Case u law u specif ication u is u valid.\n\n"); 

/* check that every result in every area has either a case or an ideal point */ 

for (areajpointer = case Jaw. area Jiead; areajpointer ^ NULL] 
areajpointer = area_pointer^next) 
for (resultjpointer = areajpointer— >resultjiead; result_pointer =/= NULL; 
resultjpointer = resultjpointer^next) 
if (resultjpointer— >casejiead = NULL) 

if (resultjpointer^fidealjpointjiead = NULL) { 

sprintf (message, "°/oS u result u in u /oS u area u has u neither u cases" 
" u nor u an u ideal u point", resultjpointer— ^identifier, 
area_pointer^>identifier) ; 
warning (log jstream, message, Top_Level); 
} else { 

sprintf (message, "°/oS u result u in u /oS u area u has u no u cases" , 

result jpointer^identifier, areajpointer^identifier) ; 
warning (log_stream, message, Top_Level); 
} 

if (dumpjilename =/= NULL) { 

/* a dump filename was specified, so open the dump file */ 

sprintf (filename, "°/,s'/,s" , dump filename, LaTeX_File_Extension); 
if ((dump _str earn = fopen(filename, "w")) = NULL) { 

sprintf (message, "can't u open u dump u f ile u \"7os\" ", filename); 

error _exit(log_stream, message); 

} 

fprintf (log_stream, "Writirig u dump u to u \" /os\" . \n\n" , filename); 

Dump_Specification(dump_stream, log_stream, casejaw, inputablejatex, verbose); 

/* close the dump file */ 

if (fclose(dump_stream) = EOF) { 

sprintf (message, " can ' t u close u dump u f ile u \ " °/ s\ " " , filename) ; 

error _exit(log_stream, message); 
} 

} 

if (probabilities_filename ^ NULL) { 

/* a probabilities filename was specified, so open the probabilities file */ 

sprintf (filename, "7,s°/,s", probabilities_filename, LaTeX_File_Extension); 
if ((probabilities_stream = fopen(filename, "w")) = NULL) { 

sprintf (message, "can't u open u probabilities u f ile u \"7 s\" ", filename); 

error _exit(log_stream, message); 

} 

fprintf (log _stream, "Writing u probabilities u to u \"7os\" . \n\n", 

filename); 

} 

CheckJor_Attribute_Dependence(probabilities_stream, log_stream, casejaw, inputablejatex); 
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if (probabilities_filename =/= NULL) 

/* a probabilities filename was specified, so close the probabilities file */ 

if (fclose(probabilities_stream) = EOF) { 

sprintf (message, "can't u close u probabilities u f ile u \"°/»s\" ", filename); 
error _exit(log_stream, message); 

} 

if (weights_filename =/= NULL) { 

/* a weights filename was specified, so open the weights file */ 

sprintf (filename, "%s / s", weights_filename, LaTeX_File_Extension); 
if ((weights_stream = f open (filename, "w")) = NULL) { 

sprintf (message, "can't u open. u weights u f ile u \"7 s\" " , filename); 

error ■_exit(log_stream, message); 

} 

fprintf (log_stream, "Writing u weights u to u \"°/ O s\" .\n\n" , filename); 

} 

Weight_Attributes(weights_stream, log_stream, casejaw, inputablejatex); 

if (weights_filename =/= NULL) 

/* a weights filename was specified, so close the weights file */ 

if (fclose(weights_stream) = EOF) { 

sprintf (message, "can't u close u weights u f ile u \"°/ s\" ", filename); 
error _exit(log_stream, message); 

} 
return casejaw; 
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} 



static void 

write_facts( 

file log_stream, 

vector ^element ^vector '.pointer) 

/* Writes the fact vector pointed to by vectorjpointer. Uses Y, N and U characters to represent 
YES, NO and UNKNOWN, respectively. */ 



{ 



fprintf (log_stream, " ("); 

while (vectorjpointer ^ NULL) { 

switch (vector_pointer^>attribute_value) { 
case YES; 

fprintf ( log_stream, " Y " ) ; 
break; 
case NO; 

fprintf (log_stream, "N"); 
break; 
case UNKNOWN; 

fprintf (log_stream, "U"); 
break; 
} 
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vector '.pointer = vector '.pointers-next; 

} 

fprintf (log.stream, " ) " ) ; 

} 

static vector.element * 
copy_facts( 

file log.stream, 

vector '.element ^vector '.pointer) 

/* Returns a pointer to a copy of the fact vector pointed to by vectorjpointer. */ 

{ 

vector '.element *temp .pointer; 

/* allocate memory for this vector element */ 

if ((temp .pointer = 

[vector .element *) malloc(sizeof (vector.element))) = NULL) 
error_exit(log_stream, "malloc u f ailed u during u f act u copying"); 

temp.pointer^attribute.value = vector '.pointer^attribute.value; 
if (vector.pointer^next = NULL) 

temp.pointer^next = NULL; 
else 

temp_pointer—>-next = copy .facts (log .stream, vector.pointer^next); 



return temp. pointer; 



} 



static void 

remove _facts(vector_element ^vectorjpointer) 

/* Frees the memory taken up by the fact vector pointed to by vectorjpointer. */ 

{ 

if (vectorjpointer ^ NULL) { 

remove_facts(vector_pointer— >next); 
free (vectorjpointer) ; 

} 
} 

static void 

mark, diff erences ( 

file log.stream, 

vector .element ^vector '.pointer :X, 

vector .element *vector .pointer. Y) 

/* Marks, with carets, the differences between the two fact vectors pointed to by vec- 
tor _pointer_X and vector jpointer_Y (one of which has already been written on the previous 
line of log.stream). */ 
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{ 

if (vector •_pointer_X =/= NULL) { 

if (vector_pointer_X—>attribute_value =/= vector jpointer _Y^attribute_value) 

fprintf (log_stream, "A"); 
else 

fprintf (log_stream, "u")i 
mark_differences(log_stream, vector jpointer JX^next, vector •_pointer_ Y^nnext) ; 
} 
} 

static void 

instantiate ( 

file log_stream, 

file distances_stream 1 

file report_stream, 

case_law_specification casejaw, 

area * area jpointer, 

vector ^element ^instantiatedjiead, 

vector ^element *factsjiead, 

result * nearest jresult, 

boolean verbose, 

cardinal * instantiation jnumber, 

cardinal * different jresults, 

cardinal level) 

/* Instantiates the unknown attribute values in the fact vector pointed to by instantiatedjiead 
to create instantiations of the instant case in which all the attribute values are known. 
Treats each instantiation as if it were a new instant case, and invokes the Odometer and 
the Reporter to recalculate the distances and argue with the instantiation. */ 



{ 



vector _element *vector_pointer; 

static char message[Max_Error_Message_Length]; 

boolean alLknown = TRUE; 

cardinal temp_cardinal = *instantiationjnumber / 10; 

/* make a copy of the fact vector pointed to by instantiatedjiead */ 

instantiatedjiead = copyJacts(log_stream, instantiatedjiead); 

for [vector jpointer = instantiatedjiead; (vector jpointer ^ NULL) A 
(alLknown = vectorjpointer^-attributejvalue ^ UNKNOWN); 
vector jpointer = vector jpointer^next); 

if (alLknown A (* instantiation jnumber ^ 0)) { 

/* all of the attribute values in the instantiation are known, and the instantiation is 
not the instant case itself, so treat it as if it were a new instant case */ 

Indent(log_stream, level); 

fprintf (log_stream, " Instant iation u / u u is u ", *instantiationjnumber); 

write Jacts(log_stream, instantiatedjiead) ; 

fprintf (log_stream, " An"); 

Indent(log_stream, level + 5); 
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while (temp_cardinal ^ 0) { 
fprintf (log_stream, "u")i 
temp_cardinal = temp_cardinal / 10; 

} 

mark_differences(log_stream, instantiated Jiead, factsjiead) ; 
fprintf (log _stream, "\n"); 

Calculate JDistances(distances_stream, log_stream, areajpointer, casejaw, 
instantiated Jiead, FALSE, ^instantiationjnumber, level +1); 

if (area_pointer^nearest_result = nearestjresult) { 

/* the same result was reached as was reached in the instant case, so write a report 
to a NULL report file (nothing will be added to the report, although information 
will still be added to the log file) */ 

Write_Report(NULL, log_stream, areajpointer, instantiated Jiead, facts Jiead, 
verbose, FALSE, FALSE, ^instantiationjnumber, level +1); 

} else { 

/* a different result was reached, so write a full report on the instantiation */ 

Write_Report(report_stream, log_stream, areajpointer, instantiatedjiead, facts_head, 
verbose, FALSE, FALSE, *instantiation_number, level +1); 

sprintf (message, " Instant iation u °/oU u in u / s u area u has u a u dif f erent u result u " 

"to u thatuOf u the u uninstantiated u instant u case", 

*instantiation_number, area_pointer^identifter); 
warning(log_stream, message, level); 

(* different_results)++; 
} 
(*instantiation_number)++; 

} 

if (*instantiation_number = 0) 
*instantiation_number = 1; 

if (-iall_known) { 

/* vector jpointer points to the first UNKNOWN attribute value in the instantiation, so 
set it to YES and instantiate the whole fact vector then set it to NO and instantiate 
the whole fact vector again */ 

vector_pointer^>attribute_value = YES; 

instantiate(log_stream, distances_stream, report_stream, casejaw, areajpointer, 

instantiated Jiead, jactsjiead, nearestjresult, verbose, instantiationjnumber, 

different_results, level) ; 

vector _pointer^attribute_value = NO; 

instantiate(log_stream, distances_stream, report_stream, casejaw, areajpointer, 

instantiated Jiead, facts Jiead, nearestjresult, verbose, instantiationjnumber, 
different jresutts, level) ; 
} 

/* free the memory taken up by the instantiation */ 
remove Jacts(instantiated Jiead) ; 
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static void 

add_to_hypothetical_list( 
file log_stream, 
vector ^element *new_head, 
distance_type new_distance, 

hypotheticaLlist_element **hypothetical_list_pointer, 
cardinal count, 
cardinal hypotheticaLreports) 

/* Inserts the hypothetical pointed to by newjiead into the list of hypotheticals pointed to by 
*hypothetical_list_pointer. The list is kept sorted: the nearer a hypothetical is to the instant 
case, the closer it is to the head of the list (the new hypothetical is new_distance from the 
instant case). *hypothetical_list_pointer points to hypothetical number count in the list. 
The total number of hypotheticals in the list is not allowed to exceed hypotheticaLreports. 
Removes the last hypothetical in the list if inserting the new hypothetical makes the list 
too long. */ 



{ 



hypothetical_list_element *temp_pointer; 

if (count > hypotheticaLreports) 

/* *hypothetical_list_pointer points past the end of the list, so return without inserting 
anything into the list */ 

return; 

if ((*hypothetical_list_pointer = NULL) V (Relative_Distance(new_distance 1 

(* hypotheticaLlist_pointer)^>nearest_neighbour_distance) = 
NEARER)) { 

/* the new hypothetical belongs at the head of the list, so allocate memory for it, make 
a copy of it, and put that copy at the head of the list */ 

if ((tempjpointer = 

(hypothetical_list_element *) malloc(sizeof(hypotheticaljist_element))) = 
NULL) 
error ■_exit(log_stream, "malloc u f ailed u during u hypothetical u handling"); 

temp_pointer—>hypothetical_head = copy_facts(log_stream, newjiead)] 
temp_pointer^fnearest_neighbour_distance = new _di stance; 
temp_pointer—>next = *hypothetical_list_pointer; 
*hypothetical_list_pointer = temp_pointer; 

/* skip through to the end of the list */ 

while ((temp •jpointer—* next ^ NULL) A (count < hypotheticaLreports)) { 
tempjpointer = temp_pointer—>-next; 
count++; 

} 
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if (temp_pointer^>next ^ NULL) { 

/* there's now one more hypothetical in the list than will be required when reports 
are written, so remove the last hypothetical from the list and free the memory it 
takes up */ 

remove_facts(temp_pointer^>next^>hypothetical_head); 
free(temp_pointer^mext) ; 
temp_pointer—>next = NULL; 

} 
} else 

/* the hypothetical does not go at the head of the list, so check whether it belongs 
somewhere in the rest of the list */ 



} 



add_to_hypothetical_list(log_stream, newjiead, new_distance, 

&£(*hypothetical_list_pointer)—>next, count + 1, hypothetical jreports); 



static void 

hypothesize^ 

file log_stream, 
case_law_specification casejaw, 

area * areajpointer, 
attribute * attribute jpointer, 
vector ^element *hypothetical_head, 
vector '.element *factsjhead, 
result * instant jresult, 
distance_type instant_distance, 
cardinal * hypothetical jnumber, 
cardinal hypotheticaljreports, 
cardinal hypothetical_changes, 
cardinal level) 

/* Makes hypothetical variations to the fact vector pointed to by hypotheticaLhead, allowing 
no more than hypotheticaLchanges differences (in the known attribute values) between the 
hypothetical and the instant case (the fact vector of which is pointed to by factsjiead). 
Treats each hypothetical as if it were a new instant case, and invokes the Odometer to 
recalculate the distances. 

Builds (for each result) a list of those hypotheticals which are eligible to be reported on. 
A hypothetical is considered eligible to be reported on if its nearest result is different 
to that of the instant case (pointed to by instantjresult) , or if it has the same nearest 
result but its nearest neighbour is nearer the instant case than is that of the instant case 
(which is instant_distance from the instant case) . Lists only the nearest hypotheticaljreports 
hypotheticals for each result. */ 

{ 

vector _element ^vector jpointer = facts_head, 

^hypothetical jpointer, 

*newjhead; 
cardinal count; 

if (attributejpointer = NULL) 
return; 
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/* count the known differences between the hypothetical and the instant case */ 

count = 0; 

for (hypotheticaLpointer = hypotheticaljiead; hypotheticaLpointer =/= NULL; 
hypotheticaLpointer = hypotheticaljpointer^next) { 
if ((vector_pointer—>attributejvalue =/= UNKNOWN) A 

(hypotheticaLpointer— mttributejualue =/= vector_pointer—>attribute_value)) 
count++; 
vector jpointer = vector '.pointers-next; 

} 

if ((hypotheticaLchanges =/= 0) A (count = hypotheticaLchanges)) 

/* the maximum number of changes has already been made */ 

return; 

newjiead = copy _f acts (log_stream, hypotheticaljiead); 

/* find the attribute to change in the new hypothetical */ 

count = 1; 

for (hypotheticaljpointer = newjiead; count < attribute_pointer—>number; 
hypotheticaLpointer = hypotheticaLpointer^next) 
count++; 

if (hypotheticaLpointer— mttribute_value = UNKNOWN) { 

/* the value of the attribute to change in the new hypothetical is UNKNOWN, so ignore 
it — UNKNOWN values have already been instantiated by instantiate^) — and continue 
hypothesizing using the next attribute */ 

hypothesize(log_stream, casejaw, areajpointer, attributejpointer^next, 
new_head, facts_head, instant_result, instant_distance, 
hypotheticaLnumber, hypotheticaLreports, hypotheticaLchanges, level); 

} else { 

(* hypotheticaLnumber) ++; 

/* change the (known) value of the attribute in the new hypothetical */ 

if (hypothetical_pointersattribute_value = YES) 

hypothetical_pointer^attribute_value = NO; 
else 

hypotheticaLpointer— >attribute_value = YES; 

/* calculate distances without writing anything to the log file or the distances file */ 

Calculate_Distances(NULL, NULL, areajpointer, casejaw, newjiead, TRUE, 0, level +1); 

if (area_pointer^nearestjresult = instantjresult) { 

/* the hypothetical has the same result as that of the instant case, so only add it 
to the hypothetical list if its nearest neighbour is nearer than was that of the 
instant case */ 

if (instantjresult-^>nearestJznown_compared_with_unknown ^ FURTHER) { 

/* the nearest known neighbour is the nearest neighbour (although there may 
be an equidistant case with an unknown distance) */ 
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if (Relative JJistance(instant_result^nearesLknown_case^metrics. distance, 
instanLdistance) = NEARER) 
addJoJiypotheticalJist(log_stream, newjiead, 

instant_result-^nearesLknown_case-^metrics. distance, 
k,instant_result-^>hypotheticalJist Jiead, 1, hypotheticaLreports); 

} else { 

/* the nearest unknown neighbour is the nearest neighbour */ 

if (Relative JJistance(instant_result-^nearest_unknown_case-^metrics. distance, 
instanLdistance) = NEARER) 
addJoJiypotheticalJist(log_stream, newjiead, 

instant_result-^>nearesLunknown_case-^metrics. distance, 
k,instant_result-^>hypotheticalJist Jiead, 1, hypotheticaLreports); 
} 
} else { 

/* the hypothetical has a different result to that of the instant case */ 

if (area_pointer^nearest_result-^nearesLknown_compared_with_unknown =/= 
FURTHER) 

/* the nearest known neighbour is the nearest neighbour (although there may 
be an equidistant case with an unknown distance) */ 

addJoJiypotheticalJist(log_stream, newjiead, 

area_pointer^>nearest_result—>nearesLknown_case^>-metrics. distance, 
& area_pointer^nearesLresult-^-hypotheticalJist Jiead, 1 , 
hypotheticaLreports) ; 

else 

/* the nearest unknown neighbour is the nearest neighbour */ 

addJoJiypotheticalJist(log_stream, newjiead, 

area_pointer—>-nearest_result-^nearest_unknown_case—^metrics. distance, 
& area_pointer—>nearest_result-^hypotheticalJist Jiead, 1 , 
hypotheticaLreports) ; 

} 

/* hypothesize, using the next attribute, with the unchanged hypothetical */ 

hypothesize (log_stream, casejaw, areajpointer, attribute_pointer^>next, 
hypotheticaljiead, factsjiead, instanLresult, instanLdistance, 
hypotheticaLnumber, hypotheticaLreports, hypotheticaLchanges, level); 

/* ... and with the new hypothetical */ 

hypothesize (log_stream, casejaw, areajpointer, attribute_pointer^>next, 
new Jiead, facts Jiead, instanLresult, instanLdistance, 
hypotheticaLnumber, hypotheticaLreports, hypotheticaLchanges, level); 

} 

/* free the memory taken up by the hypothetical */ 

remove Jacts(new Jiead); 
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static void 

writejiypotheticals ( 
file log_stream, 
file distances_stream, 
file report_stream, 
case_law_specification casejaw, 
area * area_pointer, 
vector ^element ^factsjiead, 
boolean verbose, 
boolean same_result, 

hypothetical_list_element ^hypotheticaljistjpointer, 
cardinal * hypothetical jnumber, 
cardinal level) 

/* Writes reports on the hypothetical in the list, the head of which is pointed to by 
hypothetical_list_pointer. */ 



{ 



cardinal temp_cardinal; 

/* while there are still hypotheticals in the list ... */ 

while (hypotheticaljistjpointer ^ NULL) { 

/* treat the hypothetical as if it were the instant case */ 

(*hypothetical_number)++; 

Indent(log_stream, level); 

fprintf (log _stream, "Hypothetical u °/oU u is u " , *hypothetical_number); 
write Jacts(log_stream, hypothetical Jistjpointer^hypotheticaljiead); 
fprintf (log _stream, " An"); 

Indent(log_stream, level + 4); 
fprintf (log _stream, " U uu"); 
temp_cardinal = *hypothetical_number / 10; 
while (temp_cardinal ^ 0) { 

fprintf ' (log _str earn, "u")i 

temp_cardinal = temp_cardinal / 10; 

} 

mark_differences(log_stream, hypotheticalJist_pointer—>hypotheticaLhead, factsjiead) ; 
fprintf (log_stream, "\n"); 

/* calculate the distances again (when they were calculated in hypothesize^) , nothing 
was written to the log file or the distances file) and write a report on this hypothetical 
(which also writes to the log file) */ 

Calculate_Distances(distances_stream, log_stream, areajpointer, casejaw, 

hypothetical Jistjpointer^hypotheticaljnead, TRUE, ^-hypothetical jnumber, 
level + 1); 

Write_Report(report_stream, log_stream, areajpointer, 

hypothetical Jistjpointer^hypotheticaljnead, factsjiead, verbose, TRUE, 
samejresult, ^-hypothetical jnumber, level + 1); 

hypotheticaljistjpointer = hypothetical Jistjpointer—tnext; 
} 
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extern string 
Case_Law( 

file log_stream, 

case_law_specification casejaw, 

string areajdentifier, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distances_filename, 

string weights filename, 

string reportjilename) 

/* Determines the "likely result" of the instant case in the areajdentifier area of the casejaw 
specification, and constructs an argument supporting that conclusion. 

Calls the Adjuster, if adjust is TRUE. Invokes the Consultant to interrogate the 
user as to the attribute values in the instant case. (The CONSULTANT recursively in- 
vokes Case_LawQ, if required, to resolve open textured — external — attributes.) Calls the 
Odometer to calculate the distances between the instant case and the leading cases, and 
to determine the nearest neighbours and results. Invokes the Reporter to write a report 
about the instant case. 

Returns the identifier of the "likely result." */ 

{ 

file distances_stream = NULL, 

report_stream = NULL; 
static char ftlename[Max_Filename_Length\; 
static char message[Max_Error_Message_Length\; 
vector _element *factsjiead; 
area * areajpointer; 
result * result jpointer, 

*instant_result = NULL; 
kase * case jpointer; 
distance Jype instant_distance; 
cardinal instantiation_number = 0, 

hypotheticaLnumber = 0, 

different jresults = 0, 

hypotheticaLcount = 0; 

/* find the area with an identifier matching areajdentifier */ 

for (area_pointer = case Jaw. area Jiead; 

(areajpointer ^ NULL) A strcmp(area_pointer '^-identifier, areajdentifier); 
areajpointer = area_pointer^>next); 

if (areajpointer = NULL) { 

/* areajdentifier does not match the identifier of any area */ 

sprintf (message, "°/oS u area u not u f ound", areajdentifier); 
error_exit(log_stream, message); 

} 
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Indent(log_stream, level); 

fprintf ' (log_stream, "Area u is u 7 s .\n\n", areajdentifier); 

if (distances filename ^ NULL) { 

/* a distances filename was specified, so open a distances file for this area */ 

sprintf (filename, "°/,s-'/,s'/,s" , distances Jilename, 

areajdentifier, LaTeX_File_Extension) ; 
if ((distances _stream = fopen( filename, "w")) = NULL) { 

sprintf (message, "can't u operi u distances u f ile u \"°/»s\" ", filename); 

error _exit(log_stream, message); 

} 

Indent(log_stream, level); 

fprintf (log_stream, "Writirig u distarices u to u \"7os\" . \n\n" , filename); 

} 

if (report_filename ^ NULL) { 

/* a report filename was specified, so open a report file for this area */ 

sprintf (filename, "%s- /oS°/,s", report_filename, 

area_identifier, LaTeX_File_Extension) ; 
if ((report_stream = fopen(filename, "w")) = NULL) { 

sprintf (message, " can ' t u open u report u f ile u \ " °/ s\ " " , filename) ; 

error _exit(log_stream, message); 

} 

Indent(log_stream, level); 

fprintf (log _stream, "Writirig u report u to u \"y»s\" . \n\n" , filename); 

} 

if (adjust) 

Adjust _Attributes(log_stream, areajpointer, weights_filename, level, inputablejatex); 

/* interrogate the user as to the facts in the instant case */ 

if ((facts_head = Get_Facts(log_stream, casejaw, areajpointer, adjust, echo, inputablejatex, 
verbose, hypotheticaLreports, hypotheticaLchanges, level, 
distances_filename, weights_filename, report_filename)) =/= NULL) { 

/* the user has entered some facts */ 

if (distances _stream ^ NULL) { 

/* a distances file is open for this area, so write its header */ 

fprintf (distances_stream, "°/o /ouDistances u f ile\n\n" ) ; 
Write_LaTeX_Header(distances_stream, inputablejatex) ; 

} 

if (report_stream =/= NULL) { 

/* a report file is open for this area, so write its header */ 

fprintf (report_stream, " 5i'/, u Report u f ile\n\n" ) ; 
Write JjaTeX_Header(report_stream, inputablejatex) ; 

} 

Indent(log_stream, level); 

fprintf (log _stream, "Fact u vector u is u "); 

write _facts(log_stream, factsjiead) ; 

fprintf (log _stream, " . \n\n"); 



46 §3 The Cases module 



Calculate JJistances(distances_stream, log_stream, areajpointer, 
case Jaw, factsjiead, FALSE, 0, level + 1); 

/* mark all cases as unsummarized */ 

for (resultjpointer = areajpointer^resultjnead; resultjpointer ^ NULL] 
resultjpointer = resultjpointer^next) 
for (casejpointer = resultjpointer— >case_head; casejpointer ^ NULL] 
casejpointer = casejpointer^>next) 
casejpointer— ^summarized = FALSE; 

Write_Report(report_stream, log_stream, areajpointer, factsjiead, 
NULL, verbose, FALSE, FALSE, 0, level +1); 

instantjresult = areajpointer^nearestjresult; 

if (instantjresult-^nearestJnown_compared_withjunknown ^ FURTHER) 

/* the nearest known neighbour is the nearest neighbour (although there may be 
an equidistant case with an unknown distance) */ 

instant_distance = instantjresult— >nearesLknown_case^>metrics. distance; 

else 

/* the nearest unknown neighbour is the nearest neighbour */ 
instant_distance = instantjresult— >nearest_unknown_case^>metrics. distance; 

/* instantiate the unknown attribute values in the instant case */ 

instantiate(log_stream, distances_stream, report_stream, casejaw, areajpointer, 
factsjiead, factsjiead, instant_result, verbose, &iinstantiationjnumber, 
&z different jresults, level); 

instantiationjnumber — ; 

if (hypotheticaLreports ^ 0) { 

/* the user requested hypothesizing */ 

hypothesize(log_stream, casejaw, areajpointer, areajpointer— ^attribute Jiead, 
factsjiead, factsjiead, instantjresult, instant_distance, 
Ikhypotheticaljnumber, hypotheticaLreports, hypotheticaLchanges, level); 

/* write the hypothetical for this result */ 

write Jiypotheticals(log_stream, distances_stream, report_stream, 
casejaw, areajpointer, facts Jnead, verbose, TRUE, 
instant jresult-^hypotheticaljistjiead, SkhypotheticaLcount, level); 

/* write the hypothetical for all other results */ 

for {resultjpointer = areajpointer— ^result Jiead; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) 
if (resultjpointer =/= instantjresult) 

write Jiypotheticals(log_stream, distances_stream, report_stream, 
casejaw, areajpointer, factsjiead, verbose, FALSE, 
resultjpointer— >hypotheticalJistJiead, SkhypotheticaLcount, level) ; 
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/* write details of the instantiations to the log file */ 

if (instantiation_number = 0) 

sprintf (message, "No u instantiations"); 
else if (different_results = 0) { 
if (instantiation_number = 2) 
sprintf (message, "Both"); 
else 

sprintf (message, "All u 7 u", instantiation_number); 
sprintf (message, "y»s u instantiationsuhave u the u same u nearest u result u " 
"as u does u the u iiistaiitucase", message); 
} else 

sprintf (message, "°/»u u of u the u °/oU u instaiitiations u /oS u a u nearest u result u " 
"dif f erent u to u that u of u the u instant u case" , different _results, 
instantiation_number, differenLresults = 1 ? "has" : "have"); 
Write(log_stream, message, " An", level, Hang); 

/* write details of the hypothesizing to the log file */ 

Indent(log_stream, level); 
if (hypotheticaLreports = 0) 

fprintf ' (log _str earn, "No u hypotheticals . \n\n"); 
else { 

fprintf (log _stream, "Reported u on u /oU u hypothetical°/oS u of u °/ u", 

hypothetical_count, hypotheticaLcount = 1 ? "" : "s" , hypotheticaLnumber); 
if (hypotheticaLchanges =/= 0) 

fprintf (log_stream, " u (liniit u of u %u u chaiige°/os) ", hypotheticaLchanges, 
hypotheticaLchanges = 1 ? "" : "s"); 
fprintf (log _stream, " .\n\n"); 

} 

if (distances _stream =/= NULL) 

/* a distances file is open for this area, so write its trailer */ 

Write_LaTeX_ Trailer (distances_stream, inputablejatex) ; 

if (report_stream =/= NULL) 

/* a report file is open for this area, so write its trailer */ 

Write_LaTeX_ Trailer (report_stream, inputablejatex) ; 

} 

if (distances filename ^ NULL) { 

/* a distances filename was specified, so close the distances file */ 

sprintf (filename, "%s- /oS°/ s", distances_filename, 

area_identifier, LaTeX_File_Extension) ; 
if (fclose(distances_stream) = EOF) { 

sprintf (message, " can ' t u close u distances u f ile u \ " %s\ " " , filename) ; 

error _exit(log_stream, message) ; 
} 
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if (report_filename =/= NULL) { 

/* a report filename was specified, so close the report file */ 

sprintf (filename, "y»s- / s°/ s", report_filename, 

area_identifier, LaTeX_File_Extension) ; 
if (fclose(report_stream) = EOF) { 

sprintf (message, "can't u close u report u f ile u \"°/ s\"" , filename); 
error ■_exit(log_stream, message); 
} 
} 

/* return the identifier of the "likely result" */ 

if (instant_result = NULL) 

return NULL; 
else 

return instant_result-^identifier; 




The Tokenizer module 



tokenizer .h 

/* This is the header file for the TOKENIZER module. It is also included by the CASES and 
Parser modules. */ 

/* string and character constants */ 

#define Quoted_LaTeX_Characters "$&%" 
^define Comment_Character ''/,' 
^define Quote_Character ' " ' 
^define Equals _Character ' = ' 
^define Hyphen_C'haracter '-' 
^define Tab_Character '\t' 
^define Vertical_Tab_Character ' \v' 
^define Form_Feed_Character '\f 
^define Backslash_Character '\\' 

/* enumerated types */ 

typedef enum { 

TK_KEYWORD, 
TKJDENTIFIER, 

TK_STRING, 
TK_YEAR, 

TK_A TTRIB UTE_ VECTOR, 
TK_EQUALS, 
TK.EOF 
} token_type; 
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typedef enum { 

KW.AREA, 
KW '.ATTRIBUTE, 
KW.CASE, 
KW. CITATION, 
KW.CLOSING, 
KW .COURT, 
KW. EXTERNAL, 
KW .FACTS, 
KW.HELP, 
KW.HIERARCHY, 
KWJDEAL, 
KW.NO, 
KW.OPENING, 
KW.QUESTION, 
KW .RESULT, 
KW .RESULTS, 
KW.SUMMARY, 
KW.UNKNOWN, 
KW.YEAR, 
KW.YES 
} keyword.type; 

/* structure type */ 

typedef struct { 

cardinal line.number, 

column.number; 
token.type token; 
union { 

keyword.type keyword; 

string identifier, 
string; 

cardinal year; 

matrix.element *matrix_head; 
} details; 
} token.details; 

/* external function */ 

extern token.details 
Get_Token( 

file in.stream, 

file log.stream); 

tokenizer. c 

/* This is the implementation file for the TOKENIZER module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include (string. h) 
^include " shyster. h" 
^include " cases. h" 
^include "tokenizer .h" 
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static void 

error _exit( 

file stream, 
string message, 
token_details *token) 

{ 

char fulljmessage [Max_Error_Message_Length] ; 

sprintf (fulLmessage, "°/ s u [7oU,°/ u] ", message, token-^>line_number, 

token— >column_number) ; 
Write_Error_Message_And_Exit(stream, "Tokenizer" , fulLmessage) ; 
} 

static void 

warning ( 

file stream, 

const string message, 

const token_details *token) 

{ 

char fulLmessage [Max_Error_Message_Length] ; 

sprintf (fulLmessage, "7 s u [7oU,°/,u] ", message, token-^line_number, 

token-^column_number) ; 
Write_Warning_Message(stream, "Tokenizer" , fulLmessage, Top_Level); 
} 

static int 

get_char( 

file in_stream, 
cardinal *line_number, 
cardinal * column_number, 
boolean *eof) 

/* Returns the next character from in_stream. Adjusts *line_number and * column_number 
appropriately. Sets *eo/ to TRUE, if the end of in_stream has been encountered (i.e. the 
character returned is EOF). */ 



{ 



int ch; 

if (-i(*eo/ = (ch = getc(in_stream)) = EOF)) 
if (ch = Carriage_Return_Character) { 
(*line_number)++; 
*column_number = 0; 
} else 

(* columnjnumber) ++ ; 
return ch; 
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static void 

unget_char( 

file in_stream, 
file log_stream, 
int ch, 

token_details *token, 
cardinal *line_number, 
cardinal * column_number) 

/* Pushes ch back onto in_stream. Adjusts *line_number and * column_number approp- 
riately. */ 



{ 



char message[Max_Error_Message_Length] ; 

if (ch = Carriage_Return_Character) 

(*line_number) — ; 
else 

(* column_number) — ; 
if (ch ^ EOF) 

if (ung etc ((int) ch, in_stream) = EOF) { 

sprintf (message, "ungetc u f ailed u with u character u '°/ c' ", ch); 
error _exit(log_stream, message, token); 

} 



static boolean 

is_whitespace( 

int ch) 

/* Returns TRUE, iff ch is a whitespace character (a space, a tab, a vertical tab, a carriage 
return, or a form feed). */ 

{ 

return ((ch = Space_C'haracter) V (ch = Tab_Character) V 

(ch = Vertical_Tab_Character) V (ch = Carriage_Return_Character) V 

(ch = Form_Feed_Character)); 
} 

static boolean 
is_alpha( 

int ch) 

/* Returns TRUE, iff ch is an alphabetic character (A ... Z, a ... z). */ 

{ 

return (((ch > Big_A_Character) A (ch < Big_Z_C'haracter)) V 
((ch > Little_A_Character) A (ch < Little_Z_Character))); 
} 



tokenizer. c 53 



static void 

get_keyword_or_ident( 
file in_stream, 
file log_stream, 
int ch, 

token_details *token, 
cardinal *line_number, 
cardinal * column_number, 
boolean *eo/) 

/* Gets an identifier, which may be a keyword (the first character of the identifier — ch — 
has just been read). Changes the structure pointed to by token: sets token-^token to 
TK.KEYWORD or TKJDENTIFIER, and sets token->detatls appropriately. 

EBNF: identifier = letter { letter | digit | "-" }. */ 

{ 

cardinal length = 1; 

string identifier] 

char message [Max_Error_Message_Length] ; 

/* allocate memory for the identifier */ 

if ((identifier = (string) malloc((Max_Identifier_Length + 1) x sizeof (char))) = NULL) 
error _exit(log_stream, "malloc u f ailed u during u keyword/identif ier u handling" , 
token)] 

/* put up to Max_Identifier_Length characters into the identifier */ 

identifier[0] = ch; 

ch = get_char(in_stream, line_number, column_number, eof); 

while ((length < Max_Identifier_Length) A 

(is_alpha(ch) V Is_Digit(ch) V (ch = Hyphen_Character))) { 

identifier[length++] = ch; 

ch = get_char(in_stream, line_number, column_number, eof); 

} 

identifier[length] = NulLCharacter; 

if (is_alpha(ch) V Is_Digit(ch) V (ch = Hyphen_Character)) { 

/* there is more of the identifier, so warn the user and skip over the rest of it */ 

sprintf (message, "identif ier u truncated u to u \"7os\" ", identifier); 
warning (log_stream, message, token); 

while (is_alpha(ch) V Is_Digit(ch) V (ch = Hyphen_Character)) 
ch = get_char(in_stream, line_number, column_number, eof); 

} else 

/* reallocate (just enough) memory for the identifier */ 

if ((identifier = (string) realloc((yo\d *) identifier, length x sizeof (char))) = 

NULL) 
error_exit(log_stream, "realloc u f ailed u dur ing u keyword/ identif ier u handling" , 
token); 

/* push the first character after the identifier back onto in_stream */ 

unget_char(in_stream, log_stream, ch, token, linejnumber, columnjnumber); 
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/* check whether the identifier is a keyword */ 

if (-istrcmp (identifier, "AREA")) { 

token-^token = TK_KEYWORD; 

tokens details, keyword = KW_AREA; 
} else if (~^strcmp(identifier, "ATTRIBUTE")) { 

token-^token = TK_KEYWORD; 

token^details.keyword = KW '.ATTRIBUTE; 
} else if (-istrcmp(identifier, "CASE")) { 

token-^token = TK.KEYWORD; 

token— ^details, keyword = KW_CASE; 
} else if (~^strcmp(identifier, "CITATION")) { 

token->token = TK_KEYWORD; 

token->detmls.keyword = KW.CITATION; 
} else if (~^strcmp(identifier, "CLOSING")) { 

token-^token = TK_KEYWORD; 

tokens details. keyword = KW.CLOSING; 
} else if (-istrcmp(identifier, "COURT")) { 

token-^token = TK_KEYWORD; 

token-^r details, keyword = KW_COURT; 
} else if (^strcmp(identifier, "EXTERNAL")) { 

token->token = TK_KEYWORD; 

token^details.keyword = KW .EXTERN AL; 
} else if (-istrcmp (identifier, "FACTS")) { 

token-^token = TK_KEYWORD; 

token-^details. keyword = KW_FACTS; 
} else if (-istrcmp(identifier, "HELP")) { 

token-^token = TK_KEYWORD; 

tokens details, keyword = KW_HELP; 
} else if (~^strcmp(identifier, "HIERARCHY")) { 

token-^token = TK_KEYWORD; 

token^details.keyword = KW .HIERARCHY ; 
} else if (-istrcmp (identifier, "IDEAL")) { 

token-^token = TK_KEYWORD; 

token— ^details. keyword = KWJDEAL; 
} else if (-istrcmp(identifier, "NO")) { 

token->token = TK.KEYWORD; 

token-^r details, keyword = KW_NO; 
} else if (~^strcmp(identifier, "OPENING")) { 

token-^token = TK_KEYWORD; 

tokens details, keyword = KW.OPENING; 
} else if (~^strcmp(identifier, "QUESTION")) { 

token-^token = TK_KEYWORD; 

token^details.keyword = KW.QUESTION; 
} else if (-istrcmp(identifier, "RESULT")) { 

token->token = TK_KEYWORD; 

token-^r details, keyword = KW_RESULT; 
} else if (-istrcmp (identifier, "RESULTS")) { 

token-^token = TK_KEYWORD; 

token->details.keyword = KW_RESULTS; 
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} 



} else if (^strcmp(identifier, "SUMMARY")) { 

token->token = TK_KEYWORD; 

tokens details, keyword = KW_SUMMARY; 
} else if (^strcmp(identifier, "UNKNOWN")) { 

token-^token = TK_KEYWORD; 

tokens details, keyword = KW_UNKNOWN; 
} else if (-istrcmp(identifier 1 "YEAR")) { 

token->token = TK_KEYWORD; 

token— ^details. keyword = KW_YEAR; 
} else if (-istrcmp(identifter, "YES")) { 

token-^token = TK.KEYWORD; 

token-^ details, keyword = KW_YES; 
} else { 

/* the identifier is not a keyword */ 

token-^token = TKJDENTIFIER; 
token— ^details. identifier = identifier; 

} 



static void 

get_string( 

file in_stream, 
file log_stream, 
token_details *token, 
cardinal *line_number, 
cardinal * column_number, 
boolean *eo/) 

/* Gets a string (a " character has just been read). Treats a pair of consecutive " characters as 
a single " character. Treats consecutive whitespace characters as a single space character. 
Sets token— ^details appropriately {token-^token has already been set to TK_STRING). 

EBNF: string = character { character } " */ 



int ch, 

next_ch; 
string temp_string; 
cardinal allocatedjength, 

actualjength; 

allocatedjength = String .Increment] 
actualjength = 0; 

/* allocate memory for the string */ 

if {{temp_string = {string) malloc(allocatedJength x sizeof (char))) = NULL) 
error_exit(log_stream, "malloc u f ailed u during u string u handling" , token)] 

I '* get the first character of the string */ 

ch = get_char(in_stream, line_number, column_number, eof); 
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for(;;){ 

if (ch = EOF) 

error _exit (log _stream, "end u of u f ile u in u string", token); 

if (strchr(Quoted_LaTeX_Characters, ch) =/= NULL) { 

/* the character is one of those in Quoted _LaTeX_Characters (i.e. it is $, & or °/ ); 
it has a special meaning in IATjrjX and needs to be prefixed in the string by a 
\ character */ 

temp_string [actual Jength++] = Backslash_Character; 

if (actualjength = allocatedjength) 

/* the string is too long for temp_string, so reallocate some more memory */ 

if ((temp_string = (string) realloc ((void *) temp_string, 

(allocatedjength += String .Increment) x 
sizeof (char))) = NULL) 
error _exit(log_stream, "realloc u f ailed u during u string u handling" , 
token); 

} 

if (ch = Quote_Character) 

/* the character is a " character */ 

if ((next_ch = get_char(in_stream, line_number 1 column_number, eof)) =/= 
Quote_Character) { 

/* the next character is not a " character so this is the end of the string; push 
the first character after the string back onto in_stream */ 

unget_char(in_stream, log_stream, next_ch, token, line_number, column_number); 

if (actualjength = 0) 

error_exit(log_stream, "empty u string", token)] 
else { 

temp_string[actualjength++] = NulLCharacter; 

if (actualjength < allocatedjength) 

/* reallocate (just enough) memory for the string */ 

if ((temp_string = (string) realloc((void *) temp_string, 

actualjength x sizeof (char))) = NULL) 
error_ exit (log _str earn, "realloc u f aileduduringustringuhandling" , 
token); 

} 

tokens-details, string = temp_string; 

return; 

} 
if (is_whitespace(ch)) { 

/* skip to the next non-whitespace character */ 

for (ch = get_char(in_stream, linejnumber, column_number, eof); 
is_whitespace(ch); 
ch = get_char(in_stream, linejnumber, column jnumber, eof)); 
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if (ch = EOF) 

error ■_ exit (log _stream, "end u of u f ile u in u string", token); 

/* put a single space character in the string for all of the whitespace */ 

temp_string[actual_length++] = Space _Character; 

/* push the non-whitespace character back onto in_stream */ 

unget_char(in_stream, log_stream, ch, token, line_number, column_number); 

} else 

temp_string[actual_length++] = ch; 

if (actualjength = allocated Jength) 

/* the string is too long for temp_string, so reallocate some more memory */ 

if ((temp_string = (string) realloc ((-void *) temp_string, 

(allocatedjength += String_Increment) x 
sizeof (char))) = NULL) 
error _exit[log_stream, "realloc u f ailed u during u string u haridlirig" , token); 

/* get the next character */ 

ch = get_char(in_stream, line_number, column_number, eof); 



} 



static void 

get_year( 

file in_stream, 
file log_stream, 
int ch, 

token_details *token, 
cardinal *line_number, 
cardinal * column_number, 
boolean *eo/) 

/* Gets a year (the first digit of the year — ch — has just been read). Sets token— ^details appro- 
priately (token-^token has already been set to TK_YEAR). 

EBNF: year = digit [digit] [digit] [digit]. */ 

{ 

cardinal digits = 1, 

year = (cardinal) ch — (cardinal) Zero_Character; 

for (ch = get_char(in_stream, line_number, column_number, eof); 

(Is_Digit(ch) A (digits < Year_Digits)); 

ch = get_char(in_stream, line_number, column_number, eof)) { 
year = (10 x year) + (cardinal) ch — (cardinal) Zero_Character; 
digits ++; 

} 

if (Is_Digit(ch)) 

error_exit(log_stream, "year u has u too u many u digits", token); 
unget_char(in_stream, log_stream, ch, token, line_number, column_number); 
token— ^details. year = year; 
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static void 

get_attribute_vector( 
file in_stream, 
file log_stream, 
token_details *token, 
cardinal *line_number 1 
cardinal * column_number, 
boolean *eof) 

/* Gets an attribute vector (a left parenthesis character has just been read). Sets token-^ 
details appropriately (token— >token has already been set to TK_YEAR). 

EBNF: attribute- vector = "(" attribute- value { attribute- value } ")"• 

attribute- value = "Y" | "N" | "U". */ 



int ch; 

matrix_element *matrix_head, 

^matrixjpointer; 
boolean empty = TRUE; 
char message[Max_Error_Message_Length] ; 

/* allocate memory for this matrix element (the first in the list) */ 

if ({matrixjiead = [matrix_element *) malloc(sizeof(matrix_element))) = NULL) 
error_exit(log_stream, "malloc u f ailed u during u attribute u vector u handling" , 
token); 

matrixjpointer = matrixjiead; 

/* for every character that is not a right parenthesis ... */ 

for (ch = get_char(in_stream, linejnumber, column jnumber, eof); 

ch =/= Attribute _Vector_End_Character; 

ch = get_char(in_stream, linejnumber, column_number, eof)) { 

if (-lempty) { 

/* allocate memory for this matrix element */ 

if ((matrix_pointer—>case_next = 

(matrix_element *) malloc(sizeof(matrix_element))) = NULL) 
error _exit[log_stream, "malloc u f ailed u during u attribute u vector u haridlirig" , 
token); 
matrixjpointer = matrixjpointer^ case jnext; 

} 

switch (ch) { 

case Yes_Character: 

matrix_pointer^>attribute_value = YES; 
break; 
case No_Character: 

matrix_pointer^>attributejvalue = NO; 
break; 
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case Unknown_C'haracter: 

matrix_pointer^>attribute_value = UNKNOWN; 

break; 
default: 

sprintf (message, "invaliduattributeuvalueu'yoC' ", ch); 

error _exit(log_stream, message, token); 

break; 

} 

empty = FALSE; 

matrix_pointer^-case_next = NULL; 

matrix_pointer^attribute_next = NULL; 

} 

if (empty) 

error_exit(log_stream, "empty u attribute u vector", token); 
token— >details.matrix_head = matrixjiead; 



} 



static void 

skip_to_end_of_line ( 
file in_stream, 
cardinal *line_number, 
cardinal * column_number, 
boolean *eof) 

/* Skips over characters until the end of the line, or the end of the file, is reached. */ 

{ 

int ch; 

for(;;){ 

ch = get_char(in_stream, line_number, column_number, eof); 
if ((ch = EOF) V (ch = Carriage_Return_Character)) 
return; 
} 
} 

extern token_details 
Get_Token( 

file in_stream, 

file log_stream) 

/* Returns details of the next token from in_stream. */ 

{ 

token_details token; 

int ch; 

static cardinal line_number = 1, 

column_number = 0; 
static boolean eof = FALSE; 
char message [Max_Error_Message_Length] ; 
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for(;;){ 

if (eof) { 

token.token = TK_EOF; 

return token; 
} 

/* skip to the next non-whitespace character */ 

for (ch = get_char(in_stream, &iline_number, &icolumn_number, &eo/); 
is_whitespace(ch); 
ch = get_char(in_stream, &iline_number, &icolumn_number, &eo/)); 

token.line_number = line_number; 
token.column_number = columnjnumber; 

if (is_alpha(ch)) { 

get_keyword_or_ident(in_stream, log_stream, ch, Kitoken, 
Skline_number, &icolumn_number, &eo/); 

return token; 
} else if (ch = Quote_Character) { 

token.token = TK.STRING; 

get_string(in_stream, log_stream, tktoken, &iline_number, &icolumn_number, &eo/); 

return token; 
} else if (Is_Digit(ch)) { 

token.token = TK.YEAR; 

get_year(in_stream, log_stream, ch, Sktoken, &zline_number, &icolumn_number, &ieof); 

return token; 
} else if (ch = Attribute_Vector_Begin_Character) { 

token.token = TK_ATTRIBUTE_VECTOR; 

get_attribute_vector(in_stream, log_stream, tktoken, 
h,line_number, h,column_number, &eo/); 

return token; 
} else if (ch = Equals _Character) { 

token.token = TK_EQUALS; 

return token; 
} else if (ch = EOF) { 

token.token = TK_EOF; 

return token; 
} else if (ch = Comment_Character) 

skip_to_end_of_line(in_stream, &iline_number, &icolumn_number, &eo/); 
else { 

sprintf (message, "invaliducharacteru'yoc' ", ch); 

error _exit (log _stream, message, kitoken); 
} 




The Parser module 



parser .h 

/* This is the header file for the PARSER module. It is also included by the CASES module. */ 

/* external function */ 

extern case_law_specification 
Parse_Specification( 

file in_stream, 

file log_stream); 



parser. c 

/* This is the implementation file for the PARSER module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include (string. h) 
^include " shyster. h" 
^include " cases. h" 
^include "parser. h" 
^include "tokenizer .h" 

static void 

error_exit( 

file stream, 
string message, 
token_details *token) 
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{ 

char fulLmessage [Max_Error_Message_Length] ; 

if (token ^ NULL) { 

sprintf (fulLmessage, "%s u [%u, / u] ", message, token-^linejnumber, 

tokens column jnumber) ; 
Write_Error_Message_And_Exit(stream, "Parser" , fulLmessage) ; 
} else 

Write_Error_Message_And_Exit(stream, "Parser", message); 
} 

static void 

warning ( 

file stream, 

const string message) 

{ 

Write_Warning_Message(stream, "Parser", message, Top_Level); 

} 

static void 

parse_courtjpair( 

file in_stream, 
file log_stream, 
court * court_pointer, 
token_details *token, 
cardinal * count, 
cardinal *rank) 

/* Parses a court identifier/string pair, and puts details in the court pointed to by courtjpointer. 
A court identifier has just been read, and its details are pointed to by token. * count is the 
number of courts already parsed. *rank is the rank of this court. 

EBNF: hierarchy-block = court- identifier string 

{ [ " = " ] court-identifier string } . 
court- identifier = identifier. */ 

{ 

courtjpointer^fidentifier = tokens details. identifier; 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK_STRING) 

error_exit(log_stream, "string u expecteduiri u hierarcriy u block u afteruidentif ier" , 
token); 

courtjpointer—* string = token— ^details, string; 

courtjpointer— >rank = (*rank)++; 
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/* get the next token (it should be an =, another court identifier, or the keyword AREA) */ 
*token = Get_Token(in_stream 1 log_stream); 
if (token-^token = TK.EQUALS) { 

/* this court, and the next, are of equal rank */ 

(*rank) — ; 

/* get the next token (it should be another court identifier, or the keyword AREA) */ 

*token = Get_Token(in_stream, log _str earn); 

} 
(*count)++; 

court_pointer^>next = NULL; 



static court * 
parse_hierarchy( 

file in_stream, 

file log_stream, 

token_details *token, 

cardinal * count) 

/* Parses a hierarchy, and returns a pointer to a list of courts. The keyword HIERARCHY has 
just been read, and the details of the token that followed it are pointed to by token. Sets 
* count to the number of courts in the hierarchy. 

EBNF: hierarchy = hierarchy-header hierarchy-block, 

hierarchy-header = "HIERARCHY", 
hierarchy-block = court-identifier string 

{ [ "=" ] court- identifier string}, 
court- identifier = identifier. */ 



cardinal rank = 1; 

court *court_head = NULL, 

*court_pointer = NULL, 

*temp_court_pointer; 
char message [Max_Error_Message_Length] ; 

while {token-^token = TKJDENTIFIER) { 

if (courLhead = NULL) { 

/* allocate memory for this court (the first in the list) */ 

if ((court_head = (court *) malloc (sizeof (court))) = NULL) 

error _exit(log_stream, "malloc u f ailed u duririg u hierarchy u handling" , 
token); 

courtjpointer = courtjiead; 
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} else { 

/* go to the end of the list of courts, checking that this court has not already been 
specified */ 

for (temp _court jpointer = courtjiead; temp_court_pointer =/= NULL; 
temp_court_pointer = temp_courtjpointer^next) 
if (-istrcmp(token-^> details. identifier, temp _court_pointer^> identifier)) { 
sprintf (message, "°/ s u court u already u specif ied", 

token— ^details. identifier); 
error_exit(log_stream, message, token); 
} 

/* allocate memory for this court */ 

if ((court_pointer^>next = (court *) malloc(sizeof (court))) = NULL) 

error _exit(log_stream, "malloc u f ailed u during u hierarchy u handling" . 
token); 

courtjpointer = court jpointer^next; 

} 

parse_court_pair(in_stream, log_stream, courtjpointer, token, count, Shrank); 

} 

return courtjiead; 

} 

static void 

parse_result_pair( 

file in_stream, 
file log_stream, 
result * result jpointer, 
token_details *token, 
cardinal * count) 

/* Parses a result identifier/string pair, and puts details in the result pointed to by 
result jpointer. A result identifier has just been read, and its details are pointed to by 
token. * count is the number of results already parsed in this area. 

EBNF: results-block = result-identifier string 

result-identifier string 
{result-identifier string}, 
result-identifier = identifier. */ 



resultjpointer^fidentifier = token— ^details. identifier; 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token-^token ^ TK.STRING) 

error _exit(log_str earn, "string u expected u in u results u block u af ter u identif ier" , 
token); 

result jpointer^> string = token— ^details, string; 



} 
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result _pointer—> case Jiead = NULL] 
result_pointer^>ideal_pointJiead = NULL] 
result_pointer—>centroidJiead = NULL; 
result_pointer—>hypotheticalJistJiead = NULL; 
{*count)++; 

/* get the next token (it should be a result identifier, or the keyword ATTRIBUTE) */ 

*token = Get_Token{in_stream, log_stream); 

result_pointer—>-next = NULL; 



static result * 
parse_results{ 

file in_stream, 

file log_stream, 

token_details *token, 

cardinal * count) 

/* Parses results, and returns a pointer to a list of results. The keyword RESULTS has just been 
read, and the details of the token that followed it are pointed to by token. Sets * count to 
the number of results in the area. 

EBNF: results = results-header results-block, 

results-header = "RESULTS", 
results-block = result-identifier string 

result-identifier string 

{result-identifier string}, 
result-identifier = identifier. */ 

{ 

result ^resultjiead = NULL, 

*result_pointer = NULL, 
*temp_result_pointer; 
char message [Max_Error_Message_Length] ; 

while {token-^token = TKJDENTIFIER) { 

if {resultjiead = NULL) { 

/* allocate memory for this result (the first in the list) */ 

if {{resultjiead = {result *) malloc{sizeof {result))) = NULL) 

error ■_ exit {log _stream, "malloc u f ailed u during u result u hand.ling" , token); 

resultjpointer = resultjiead; 

} else { 

/* go to the end of the list of results, checking that this result has not already been 
specified */ 

for {temp_result_pointer = resultjiead; tempjresultjpointer ^ NULL; 
temp_result_pointer = temp_result_pointer—>next) 
if {-i strcmp{token-^> details. identifier, temp_result_pointer—>identifter)) { 
sprintf {message, "°/ s u result u already u specif ied", 

token— ^details. identifier) ; 
error_exit{log_stream, message, token); 
} 
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/* allocate memory for this result */ 

if ((resultjpointer^next = {result *) malloc(sizeof (result))) = NULL) 

error _exit(log_stream, "malloc u f ailed u during u result u hand.ling" , token); 

resultjpointer = result_pointer^>next; 

} 

parse_result_pair(in_stream, log_stream, resultjpointer, token, count); 

} 

return resultjiead; 

} 

static void 

add_to_direction_list( 
file log_stream, 

direction_list_element **list_head, 
result * resultjpointer, 
token_details *token) 

/* Adds resultjpointer to the list of directions pointed to by *list_head. */ 

{ 

direction_list_element * listjpointer, 

*last_list_pointer; 
char message[Max_Error_Message_Length] ; 

if (*Ust_head= NULL) { 

/* allocate memory for this direction (the first in the list) */ 

if ((*list_head = 

(direction_list_element *) malloc(sizeof(direction_list_element))) = 
NULL) 
error _exit (log _stream, "malloc u f ailed u during u result u list u handling" , token); 

listjpointer = *list_head; 

} else { 

/* go to the end of the list of directions, checking that this result has not already been 
specified for this attribute value */ 

for (listjpointer = *list_head; listjpointer =/= NULL; 
listjpointer = listjpointer— mext) { 
if (listjpointer— ^result = resultjpointer) { 
sprintf (message, 

l|0 /oS u resultualready u specif ied u f or u this u attribute u value" , 
token— >details.identifter); 
error ■_ exit ( log _stream, message, token); 

} 

lastjistjpointer = listjpointer; 

} 
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/* allocate memory for this direction */ 

if ((last_list_pointer—>-next = 

(direction_list_element *) malloc(sizeof(direction_list_element))) = 
NULL) 
error _exit(log_stream, "malloc u f ailed u during u result u list u handling" , token); 

listjpointer = lastJist_pointer^>next; 

} 

listjpointer^result = result jpointer; 

list_pointer^>next = NULL] 
} 

static void 

add_to identifier _list( 
file log_stream, 

identifier _list_element **list_head, 
string identifier, 
token_details *token) 

/* Adds identifier to the list of identifiers pointed to by *list_head. */ 

{ 

identifier _list_element * listjpointer, 

*last_list jpointer; 

char message [Max_Error_Message_Length] ; 

if (*list_head = NULL) { 

/* allocate memory for this identifier list element (the first in the list) */ 

if ((*list_head = (identifier_list_element *) malloc(sizeof(identifter_list_element))) = 
NULL) 
error _exit(log_stream, "malloc u f ailed u during u identif ier u list u handling", 
token); 

listjpointer = *list_head; 

} else { 

/* go to the end of the list of identifiers, checking that this identifier has not already 
been specified for this attribute value */ 

for (listjpointer = *list_head; listjpointer ^ NULL; 
listjpointer = listjpointer^next) { 
if (-istrcmp (listjpointer ^identifier, identifier)) { 
sprintf (message, 

"%s u identif ier u already u specif ied u f or u this u attribute u value" , 
token— >details.identifier) ; 
error ■_ exit ( log _stream, message, token); 

} 

lastjistjpointer = listjpointer; 

} 



} 
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/* allocate memory for this identifier list element */ 

if ((lastJist_pointer^next = 

(identifier_list_element *) malloc(sizeof(identifter_list_element))) = 
NULL) 
error _exit (log _stream, "malloc u f ailed u during u identif ier u list u handling", 
token); 

list_pointer = last_list_pointer^>next; 

} 

list jpointer •^■identifier = identifier] 

list_pointer—>next = NULL; 



static attribute * 
parse_attributes( 

file in_stream, 

file log_stream, 

result *resutt_head, 

token_details *token, 

string areajdentifier, 

cardinal * count) 

/* Parses attributes, and returns a pointer to a list of attributes. The keyword ATTRIBUTE 
has just been read, and the details of the token that followed it are pointed to by token. 
*result_head is the head of the list of results for this area. Sets * count to the number of 
attributes in the area. 

EBNF: attribute = attribute-header attribute-block, 

attribute-header = "ATTRIBUTE". 

attribute-block = local-attribute | external- attribute, 
local-attribute = "QUESTION" string 

[ "YES" string { result- identifier } ] 
[ "MO" string { result- identifier } ] 
[ "UNKNOWN" string { result- identifier } ] 
["HELP" string], 
external- attribute = "AREA" area-identifier 

["YES" string { result- identifier } 
["EXTERNAL" result-identifier { result- identifier }] ] 
["NO" string { result- identifier } 
["EXTERNAL" result-identifier { result- identifier }] ] 
["UNKNOWN" string { result- identifier } 
[ " EXTERNAL " result-identifier { result- identifier } ] ] . * / 

{ 

attribute * attribute jpointer; 

result * result .pointer = resultjiead; 

boolean found = FALSE; 

char message[Max_Error_Message_Length] ; 

/* allocate memory for this attribute */ 

if ((attribute_pointer = (attribute *) malloc(sizeof (attribute))) = NULL) 

error_exit(log_stream, "malloc u f ailed u during u attribute u handling" , token); 
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if ((token->token = TK.KEYWORD) A (token-^>details. keyword = KW.QUESTION)) 

attribute_pointer—>external_attribute = FALSE; 
else if ((token->token = TK.KEYWORD) A {token-* details. keyword = KW.AREA)) 

attribute_pointer^external_attribute = TRUE; 
else 

error_exit(log_stream, "keyword u QUESTION u or u AREA u expected u in u attribute" , 
token)] 

/* get the next token (if the attribute is local, it should be a string; if the attribute is 
external, it should be an area identifier) */ 

*token = Get_Token(in_stream, log_stream); 

if (attribute_pointer—>external_attribute) { 

if (token->token ± TKJDENTIFIER) 
error _exit ( log_stream, 

"identif ier u expected u iri u attribute u af ter u keyword u AREA" , token); 

if (-istrcmp(token-^details. string, areajidentifier)) { 

sprintf (message, "Recursive u external u attribute u iri u / s u area" , 

areajidentifier) ; 
error _exit[log_stream, message, token); 

} 

attribute_pointer—>details. external. area_identifier = token— ^details. string; 

} else { 

if (token-^token ^ TK.STRING) 
error _exit ( log_stream, 

"stririg u expected u in u attribute u af ter u keyword u QUESTION" , token); 

attributejpointer^details.local.question = token— ^details. string; 
} 

/* get the next token (it should be the keyword YES, the keyword NO, or the keyword 
UNKNOWN) */ 

*token = Get_Token(in_stream, log_stream); 

if ((token^token = TK.KEYWORD) A (token^detatls.keyword = KW_YES)) { 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ± TK.STRING) 

error _exit[log_stream, "string u expected u in u attribute u after u keyword u YES" , 
token); 

attribute_pointer^yes = tokens details, string; 

/* get the next token (it should be a result identifier, the keyword NO, the keyword 
UNKNOWN, the keyword HELP, the keyword ATTRIBUTE, or the keyword CASE; if the 
attribute is external the token could also be the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log_stream); 

attribute_pointer^yes_direction_head = NULL; 
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/* while there are result identifiers to parse ... */ 

while (token-^token = TKJDENTIFIER) { 

/* find the result matching the result identifier, and add that result to the list of 
directions for YES for this attribute */ 

do { 

if (resultjpointer = NULL) { 

sprintf (message, "°/ s u result u not u f ound" , 

token— ^details. identifier); 
error_exit(log_stream, message, token); 

} 

found = ~^strcmp(token-^ details, identifier, result jpointer^identifier); 

if (found) 

add_to_direction_list(log_stream, &iattribute_pointer^>yes_direction_head, 

resultjpointer, token); 

else 

resultjpointer = resultjpointer^-next; 

} while (-ifound); 

resultjpointer = resultjiead; 

/* get the next token (it should be a result identifier, the keyword NO, the keyword 
UNKNOWN, the keyword HELP, the keyword ATTRIBUTE, or the keyword CASE; if 
the attribute is external the token could also be the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log_stream); 
} 

if (attributejpointer—>external_attribute) { 

attribute jpointer—> details, external.yesjdentifierjiead = NULL; 

if ((token^token = TK.KEYWORD) A 

(token-* details. keyword = KW .EXTERN AL)) { 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

while (token-^token = TKJDENTIFIER) { 

/* add the result identifier to the list of external result identifiers for YES for 
this attribute */ 

add_to_identifier_list(log_stream, 

&iattributejpointer—>details.external.yes_identifier_head, 
tokens details. identifier, token); 

/* get the next token (it should be a result identifier, the keyword NO, the 
keyword UNKNOWN, the keyword HELP, the keyword ATTRIBUTE, or the 
keyword CASE) */ 

*token = Get_Token(in_stream, log_stream); 
} 



parser. c 71 



if (attribute jpointer^* details. external.yes_identifier_head = NULL) 
e rro r_ exit( log_stream, 

" identif ier u expected u iii u attribute u af ter u keyword u EXTERNAL" , 
token)] 
} 
} 
} else 

attribute jpointer^yes = NULL; 

if ((token-^token = TK.KEYWORD) A (token-^details.keyword = KW_NO)) { 

/* get the next token (it should be a string) */ 

* token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK.STRING) 

error _exit(log_stream, "string u expected u in u attribute u after u keyword u NO", 
token)] 

attributejpointer^no = token— ^details. string; 

/* get the next token (it should be a result identifier, the keyword UNKNOWN, the keyword 
HELP, the keyword ATTRIBUTE, or the keyword CASE; if the attribute is external the 
token could also be the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log_stream); 

attributejpointer^>no_direction_head = NULL; 

/* while there are result identifiers to parse ... */ 

while (token-^token = TKJDENTIFIER) { 

/* find the result matching the result identifier, and add that result to the list of 
directions for NO for this attribute */ 

do { 

if (resultjpointer = NULL) { 

sprintf (message, "°/ s u result u not u f ound" , 

token-^ details, identifier); 
error_exit(log_stream, message, token); 

} 

found = -i strcmp(token-^ details. identifier, resultjpointer— ^identifier); 

if (found) 

add_to_direction_list(log_stream, &zattribute_pointer^no_direction_head, 
resultjpointer, token); 
else 

resultjpointer = resultjpointer^-next; 
} while (-ifound); 

resultjpointer = resultjiead; 

/* get the next token (it should be a result identifier, the keyword UNKNOWN, the 
keyword HELP, the keyword ATTRIBUTE, or the keyword CASE; if the attribute is 
external the token could also be the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log_stream); 
} 
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if (attribute_pointer^external_attribute) { 

attribute_pointer—>details.external.no_identifter_head = NULL; 

if {{token->token = TK.KEYWORD) A 

{tokens details. keyword = KW_EXTERNAL)) { 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

while {token-^token = TKJDENTIFIER) { 

/* add the result identifier to the list of external result identifiers for NO for 
this attribute */ 

add_to_identifier_list(log_stream, 

&zattribute_pointer^>details.external.no_identifier_head, 

token— ^details, identifier, token); 

/* get the next token (it should be a result identifier, the keyword UNKNOWN, 
the keyword HELP, the keyword ATTRIBUTE, or the keyword CASE) */ 

*token = Get_Token(in_stream, log_stream); 

} 

if (attribute_pointer—>details.external.no_identifter_head = NULL) 

e rro r_ exit( log_stream, 

"identif ier u expected u in u attribute u af ter u keyword u EXTERNAL" , 

token); 

} 

} 
} else 

attributejpointer^no = NULL; 

if ((token^token = TK.KEYWORD) A (token^detatls.keyword = KW.UNKNOWN)) { 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK.STRING) 
error _exit ( log_stream, 

"stririg u expected u iri u attribute u af ter u keyword u UNKNOWN" , token); 

attributejpointer^funknown = tokens details, string; 

I '* get the next token (it should be a result identifier, the keyword HELP, the keyword 
ATTRIBUTE, or the keyword CASE; if the attribute is external the token could also be 
the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log_stream); 

attribute_pointer^mnknown_direction_head = NULL; 
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/* while there are result identifiers to parse ... */ 

while (token->token = TKJDENTIFIER) { 

/* find the result matching the result identifier, and add that result to the list of 
directions for UNKNOWN for this attribute */ 

do { 

if (resultjpointer = NULL) { 

sprintf (message, "°/ s u result u not u f ound" , 

token— ^details. identifier) ; 
error_exit(log_stream, message, token); 

} 

found = -i strcmp{token-^> details. identifier, resultjpointer— ^identifier); 

if (found) 

add_to_direction_list(log_stream, &zattributejpointer—>unknown_direction_head, 
resultjpointer, token); 
else 

resultjpointer = resultjpointer^-next; 
} while (-ifound); 

resultjpointer = resultjiead; 

/* get the next token (it should be a result identifier, the keyword HELP, the keyword 
ATTRIBUTE, or the keyword CASE; if the attribute is external the token could also 
be the keyword EXTERNAL) */ 

*token = Get_Token(in_stream, log _str earn); 
} 
if (attribute_pointer—>external_attribute) { 

attribute jpointer—* details. external.unknown_identifier_head = NULL; 

if ((token^token = TK.KEYWORD) A 

(tokens details. keyword = KW .EXTERN AL)) { 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

while (token-^token = TKJDENTIFIER) { 

/* add the result identifier to the list of external result identifiers for 
UNKNOWN for this attribute */ 

add_to_identifier_list(log_stream, 

&z attribute jpointer—* details, external.unknownjidentifierjiead, 
token-^ details. identifier, token); 

/* get the next token (it should be a result identifier, the keyword HELP, the 
keyword ATTRIBUTE, or the keyword CASE) */ 

*token = Get_Token(in_stream, log_stream); 

} 

if (attribute .pointer— > details. external.unknownjdentifierjiead = NULL) 

error _exit(log_stream, 

"identif ier u expected u iri u attribute u af ter u keyword u EXTERNAL" , 
token); 
} 
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} else 

attribute_pointer—>unknown = NULL; 

if ((attribute_pointer^>-yes = NULL) A (attribute_pointer—>no = NULL) A 
(attribute _pointer^>unknown = NULL)) 
error_exit(log_stream, "keyword u YES, u NO u or u UNKNOWN u expected u in u attribute" , 
token)] 

if ((token-^token = TK.KEYWORD) A (token-^details.keyword = KW.HELP)) { 

if (attribute_pointer—>external_attribute) 

error_exit(log_stream, "keyword u HELP u not u allowed u in u externaluattribute" , 
token); 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK.STRING) 

error _exit(log_stream, "string u expected u in u attribute u after u keyword u HELP" , 
token); 

attribute_pointer—>details. local, help = token— ^details. string; 

/* get the next token (it should be the keyword ATTRIBUTE, or the keyword CASE) */ 

*token = Get_Token(in_stream, log_stream); 

} else if (-iattribute_pointer^>external_attribute) 
attribute_pointer—>details. local, help = NULL; 

attribute_pointer—>number = ++(* count); 
attributejpointer^matrixjiead = NULL; 
attribute_pointer—>weights_head = NULL; 
attribute _pointer^probability_head = NULL; 

if ((token-^token = TK_KEYWORD) A (token-^details.keyword = KW .ATTRIBUTE)) { 

/* get the next token (it should be the keyword QUESTION, or the keyword AREA) */ 

*token = Get_Token(in_stream, log_stream); 

/* parse the next attribute */ 

attribute_pointer—>next = parse_attributes(in_stream, log_stream 1 resultjiead, token, 
areajdentifter, count) ; 

} else 

attribute_pointer—>next = NULL; 

return attributejpointer; 
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static boolean 
is_more_important( 

kase *x, 

kase *y) 

/* Returns TRUE, iff case x is more important than case y: i.e. case x was a decision of a 
more important court, or of an equally important court at a later date (if neither case x 
nor case y has a court then the more recent of the two is the more important). */ 



{ 



if (x^>court_string = NULL) 
if (y—>court_string = NULL) 

/* neither case x nor case y has a court, so return TRUE if case a; is a more recent 
decision than case y */ 

return x— >year > y^year; 

else 

/* case y has a court and case x doesn't, so case y is assumed to be more important 
than case x */ 

return FALSE; 

else if (y—>court_string = NULL) 

/* case x has a court and case y doesn't, so case x is assumed to be more important 
than case y */ 

return TRUE; 
else { 

/* both case x and case y have a court */ 
if (x—*court_rank < y^-court_rank) 

/* case x was a decision of a more important court then was case y */ 

return TRUE; 

else if (x—>-court_rank = y—>court_rank) 

/* case x and case y were decisions of an equally important court, so return TRUE 
if case a; is a more recent decision than case y */ 

return x—>year > y^>year; 
else 

/* case x was a decision of a less important court than was case y */ 
return FALSE; 
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static void 

rank_cases( 

kase **case_head) 

/* Reorders the list of cases pointed to by *case_head so that the cases are listed in order of 
their importance (more important cases first). */ 



{ 



boolean changed; 
kase * casejpointer, 

*previous_casejpointer, 

*next_case_pointer, 

*temp_casejpointer; 

do { 

changed = FALSE; 
previous_case_pointer = NULL; 
casejpointer = *case_head; 

/* while there are still cases in the list ... */ 

while {casejpointer ^ NULL) { 

next_case_pointer = casejpointer— tnext; 

if (next_case_pointer ^ NULL) { 

if (is_more_important(next_case_pointer, casejpointer)) { 

/* swap this case and the next */ 

if (previous_casejpointer = NULL) 

/* casejpointer points to the first case in the list */ 

*case_head = next_casejpointer; 

else { 

/* casejpointer points to a case which is not the first in the list */ 

previous_casejpointer^>next = next_casejpointer; 
} 

casejpointer— mext = next_casejpointer^>next; 
next_case_pointer—>next = casejpointer; 
temp_casejpointer = casejpointer; 
casejpointer = next_casejpointer; 
next_casejpointer = temp_casejpointer; 

changed = TRUE; 
} 

} 

previous_casejpointer = casejpointer; 

casejpointer = next_casejpointer; 
} while (changed); 
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static void 

number_cases( 

result ^resultjiead) 

/* Assigns a number to each case for each result in the list pointed to by resultjiead. */ 

{ 

result ^-resultjpointer; 
kase * casejpointer; 
cardinal count = 1; 

/* for every result ... */ 

for (resultjpointer = resultjiead; resultjpointer ^ NULL] result jpointer = 
result jpointer^next) 

/* for every case ... */ 

for (casejpointer = resultjpointer^>caseJiead; casejpointer ^ NULL] 
casejpointer = casejpointer^-next) 
casejpointer— ^number = count++; 
} 

static void 

cross Jink ( 

result *resuttjiead, 
attribute * attribute Jiead) 

/* Links attribute values by attribute (they are already linked by case). */ 

{ 

result * resultjpointer; 
kase * casejpointer; 
attribute * attribute jpointer; 
matrix_element * casejmatrixjpointer, 
* attribute jmatrix jpointer; 

/* for every result ... */ 

for {resultjpointer = resultjiead; resultjpointer ^ NULL; resultjpointer = 
result -jpointer— ynext) 

/* for every case ... */ 

for (casejpointer = result jpointer— tease Jiead; casejpointer =/= NULL; 
casejpointer = casejpointer— mext) { 

attribute_pointer = attributejiead; 
casejmatrixjpointer = casejpointer^-matrixjiead; 

if (attributejpointer^nnatrixjiead = NULL) 

/* this is the first attribute value for this (or any other) attribute, so each 
attribute value for this case becomes the head of the appropriate attribute's 
list */ 

while ((attribute jpointer =/= NULL) A (casejmatrixjpointer =/= NULL)) { 
attribute_pointer^nnatrixJiead = casejmatrixjpointer; 
casejmatrixjpointer = casejmatrixjpointer^fcasejnext; 
attributejpointer = attribute jpointer '^next; 

} 
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else 



/* this is not the first attribute value for this attribute, so add each attribute 
value for this case to the end of the appropriate attribute's list */ 

while (attribute_pointer =/= NULL) { 

for (attributejmatrixjpointer = attributejpointer^matrixjiead; 
attribute_matrix_pointer—>attribute_next =/= NULL; 
attribute _matrix_pointer = 
attribute_matrix_pointer—>attribute_next); 

attribute_matrix_pointer^attribute_next = casejmatrixjpointer; 
case_matrix_pointer = case_matrix_pointer^fcase_next; 
attributejpointer = attribute _pointer—ynext; 



static void 

check_for_identical_cases( 
file log_stream, 
area * areajpointer) 

/* Checks every case in the areajpointer area against every other case in that area and warns 
if two cases are identical, or identical but for UNKNOWN values. */ 



{ 



result * result_pointer_X, 

*result_pointer_Y ; 
kase *case_pointer_X, 

*case_pointer_Y ; 
matrix_element * matrix_pointer_X, 

*matrixjpointer_ Y ; 
boolean identical, 

possibly ..identical; 
char message[Max_Error_Message_Length] ; 

/* for every result ... */ 

for (result jpointer_X = area_pointer^result_head; result_pointer_X =/= NULL; 
result_pointer_X = result_pointer_X^>next) 

/* for every case X . . . */ 

for (case_pointer_X = result jpointer_X^>caseJiead; casejpointerJX ^ NULL; 
case_pointer_X = case_pointer_X—ynext) { 

case_pointer_Y = case_pointer_X ; 
result_pointer_Y = result_pointer_X ; 
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/* for every case Y (i.e. every case after case X) . . . */ 

while (case_pointer_Y =/= NULL) { 

if (case_pointer_X =/= case_pointer_Y) { 

/* X and Y are not the same case */ 

identical = TRUE; 
possibly .identical = TRUE] 

matrix_pointer_X = case_pointer_X^>matrix_head; 
matrix_pointer_Y = case_pointer_Y^>matrix_head; 

while (possiblyjdentical A 

(matrix_pointer_X =/= NULL) A (matrix_pointer_Y ^ NULL)) { 

/* look for differences between case X and case Y */ 

if (matrix_pointer_X^attribute_value =/= 

matrix _pointer_ Y—>attribute_value) { 

identical = FALSE; 

if ((matrix_pointer_X^attribute_value ^ UNKNOWN) A 

(matrix_pointer_Y^attribute_value =/= UNKNOWN)) 
possiblyjdentical = FALSE; 

} 

matrix_pointer_X = matrix_pointer_X^>case_next; 

matrix_pointer_Y = matrix_pointer_Y^>-case_next; 

} 

if (identical) { 

sprintf (message, 

" C°/oU u and u C°/oU u irL u 7oS u area u have u " 
"identical u attribute u vectors", 
case_pointer_X—>number, case_pointer_ Y—>number, 
area_pointer—>identifter) ; 

if (result_pointer_X ^ result_pointer_Y) 

sprintf (message, "7 s u andudif f erent u results", message); 

warning (log _stream, message); 

} else if (possiblyjdentical) { 

sprintf (message, 

" C°/oU u and u C°/oU u iri u / s u area u have u " 

"identical u attribute u values u (except u f or u unknowns) " . 
case_pointer_X—>number, case_pointer_ Y—>number, 
area_pointer—>identifier) ; 

if (result_pointer_X =/= result_pointer_Y) 

sprintf (message, "7 s u andudif f erent u results", message); 

warning (log ■.stream, message); 
} 
} 
case_pointer_Y = case_pointer_Y—>next; 
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while ((case_pointer_Y = NULL) A (result _pointer_Y =/= NULL)) { 

/* the next case Y is not of this result, so move to the next result */ 

result_pointer_Y = result_pointer_Y ^>next; 
if (result_pointer_Y =/= NULL) 

case_pointer_Y = result_pointer_Y—>case_head; 



} 
} 



} 



} 



static void 

parse_case( 

file in_stream, 
file log_stream, 
court * courtjpointer, 
area *area_pointer, 
token_details *token, 
cardinal * count) 

/* Parses a case, and adds it to the list of cases for the appropriate result in the area pointed 
to by areajpointer. The keyword CASE has just been read, and the details of the token that 
followed it are pointed to by token. Increments * count (the number of cases already parsed 
in this area). 

EBNF: case = case-header case-block, 

case-header = "CASE" string [string], 
case-block = "CITATION" string 

"YEAR" year 

["COURT" court-identifier] 

"FACTS" attribute- vector 

"RESULT" result- identifier 

["SUMMARY" string]. */ 

{ 

result *result_pointer = area_pointer—>result_head; 

kase *case_pointer, 

*temp_case_pointer; 

attribute * attribute jpointer; 

matrix_element *matrix_pointer; 

boolean found = FALSE; 

char message [Max_Error_Message_Length] ; 

if (token-^token ^ TK_STRING) 

error_exit(log_stream, "string u expected u iii u caseuaf ter u keyword u CASE" , token); 

/* allocate memory for this case */ 

if ((case_pointer = (kase *) malloc (sizeof (kase))) = NULL) 

error_exit(log_stream, "malloc u f ailed u during u case u handlirig" , token); 

case_pointer—>name = token-^details. string; 

/* get the next token (it should be a string or the keyword CITATION) */ 

*token = Get_Token(in_stream, log_stream); 
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if (token->token = TK.STRING) { 

case_pointer—>short_name = token— ^details, string; 

/* get the next token (it should be the keyword CITATION) */ 

*token = Get_Token(in_stream, log_stream); 

} else 

case_pointer^>short_name = case_pointer^name; 

if ((token-^token ^ TK.KEYWORD) V (token-^details.keyword ^ KW.CITATION)) 
error_exit(log_stream, "keyword u CITATION u expected u in u case", token)] 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK.STRING) 

error_exit(log_stream, "string u expected u in u case u af ter u keyword u CITATION" , 
token)] 

case_pointer—>citation = token— ^details, string; 

/* get the next token (it should be the keyword YEAR) */ 

*token = Get_Token(in_stream, log_stream); 

if {{token-^token ± TK.KEYWORD) V (token^detatls.keyword ^ KW.YEAR)) 
error_exit(log_stream, "keyword u YEAR u expected u in u case" , token); 

/* get the next token (it should be a year) */ 

*token = Get_Token(in_stream, log_stream); 

if (token-^token ± TK.YEAR) 

error_exit(log_stream, "year u expected u in u case u af ter u keyword u YEAR" , token); 

case_pointer—>year = token— ^details. year; 

/* get the next token (it should be the keyword COURT, or the keyword FACTS) */ 

*token = Get_Token(in_stream, log_stream); 

if ({token-^token = TK_KEYWORD) A (token->detatls.keyword = KW_COURT)) { 

/* get the next token (it should be a court identifier) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TKJDENTIFIER) 

error _exit[log_stream, "identif ier u expected u in u case u after u keyword u COURT" . 
token); 

/* find the court identifier in the list of courts, and link the case to that court */ 

do { 

if (court_pointer = NULL) { 

sprintf (message, " /oS u court u not u f ound", token— ^details. identifier); 
error ■_ exit ( log _stream, message, token); 

} 
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found = -i strcmp(token-^details. identifier, court_pointer—>identifier); 
if (found) { 

casejpointer^-court_string = court jpointer^ string; 

case_pointer^>court_rank = court_pointer^>rank; 
} else 

courtjpointer = courtjpointer^next; 
} while (-1 found); 

/* get the next token (it should be the keyword FACTS) */ 

*token = Get_Token(in_stream, log_stream); 

} else 

/* no court specified */ 

case_pointer^court_string = NULL; 

if ((token^token ^ TK_KEYWORD) V (token^details.keyword ^ KW_FACTS)) 
error_exit(log_stream, "keyword u FACTS u expected u in u case" , token); 

/* get the next token (it should be an attribute vector) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK_ATTRIBUTE_VECTOR) 
error_exit(log_stream, 

"attribute u vector u expected u in u case u after u keyword u FACTS" , token); 

case_pointer^matrix_head = token— >details.matrix_head; 

/* check that there are as many values in the attribute vector as there are attributes */ 

matrixjpointer = case_pointer^nnatrix_head; 

for (attribute jpointer = area_pointer^attribute_head; 

(attribute jpointer ^ NULL) A (matrixjpointer ^ NULL); 
attributejpointer = attributejpointer^>next) 
matrixjpointer = matrix_pointer^case_next; 
if (attributejpointer ^ NULL) 

error_exit(log_stream, "too u f ew u valuesuiri u attribute u vector", token); 
if (matrixjpointer =/= NULL) 

error_exit(log_stream, "too u many u values u in u attribute u vector" , token); 

/* get the next token (it should be the keyword RESULT) */ 

*token = Get_Token(in_stream, log_stream); 

if ((token^token ^ TK.KEYWORD) V (token^details.keyword ^ KW.RESULT)) 
error_exit(log_stream, "keyword u RESULT u expecteduiri u case" , token); 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TKJDENTIFIER) 

error_exit(log_stream, " identif ier u expected u in u case u af ter u keyword u RESULT" , 
token); 
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/* find the result identifier in the list of results, and add the case to the list of cases for 
that result */ 

do { 

if (resultjpointer = NULL) { 

sprintf (message, "y»s u result u not u f ound" , token-^details.identifier); 
error _exit(log_stream, message, token); 

} 

found = -istrcmp(token—>details. identifier, result_pointer—>identifter); 
if (found) { 

if (result_pointer—>case_head = NULL) 

result_pointer—>case_head = casejpointer; 
else { 

for (temp_case_pointer = result_pointer^>case_head; 
temp_case_pointer^>next =/= NULL; 
temp_case_pointer = temp_case_pointer^next); 
temp_case_pointer—>next = casejpointer; 

} 
} else 

resultjpointer = resultjpointer^next; 

} while (-1 found); 

(*count)++; 

case_pointer—> summary = NULL; 

/* get the next token (it should be the keyword SUMMARY, the keyword CASE, the keyword 
IDEAL, the keyword AREA, or the end of the file) */ 

*token = Get_Token(in_stream, log_stream); 

if ((token^token = TK.KEYWORD) A (token^details.keyword = KW.SUMMARY)) { 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token-^token ± TK.STRING) 

error _exit(log_stream, "string u expected u iri u case u after u keyworduSUMMARY", 
token); 

casejpointer— ^summary = token-^ details, string; 

/* get the next token (it should be the keyword CASE, the keyword IDEAL, the keyword 
AREA, or the end of the file) */ 

*token = Get_Token(in_stream, log_stream); 

} 

case_pointer^>next = NULL; 
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static vector _element * 

vector Jromjmatrix ( 
file log_stream, 

matrix_element * matrixjpointer, 
token_details *token) 

/* Returns a pointer to a new list of vector elements whose values correspond to those in the 
list of matrix elements pointed to by matrixjpointer (linked by case). Frees the memory 
taken up by the list of matrix elements. */ 



{ 



vector _element *vector_head, 

^vector jpointer; 
matrix_element * nextjmatrixjpointer; 

/* allocate memory for the first vector element in the list */ 

if ((vector Jiead = (vector _element *) malloc(sizeof(vector_element))) = NULL) 

error_exit(log_stream, "malloc u f ailed u during u matrix/vector u conversion" , token)] 

vector jpointer = vector Jiead; 

/* while there are still matrix elements in the list ... */ 

while (matrixjpointer ^ NULL) { 

/* copy the attribute value into the vector element */ 

vector •_pointer^>attribute_value = matrix_pointer^attribute_value; 
nextjmatrixjpointer = matrix_pointer—>case_next; 

/* free the memory taken up by the matrix element */ 

free (matrixjpointer) ; 
if (nextjmatrixjpointer = NULL) 
vector ^pointer—* next = NULL; 
else { 

/* allocate memory for the next vector element */ 

if ((vector_pointer—>-next = (vector_element *) malloc(sizeof(vector_element))) = 
NULL) 
error _exit(log_stream, "malloc u f ailed u during u matrix/vector u conversion" , 
token); 

vector jpointer = vector_pointer—mext; 

} 

matrixjpointer = nextjmatrixjpointer; 

} 

return vector _head; 
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static void 

parsejidealjpoint( 

file in_stream, 
file log_stream, 
result * result jpointer, 
attribute * attributejpointer, 
token_details *token, 
cardinal * count) 

/* Parses an ideal point, and makes it the ideal point for the appropriate result in the list of 
results pointed to by result jpointer. The keyword IDEAL has just been read, and the details 
of the token that followed it are pointed to by token. * attribute jpointer is the head of the 
list of attributes for this area. Increments *count (the number of ideal points already parsed 
in this area). 

EBNF: ideal-point = ideal-point-header ideal-point-block, 

ideal-point- header = "IDEAL", 
ideal-point-block = "FACTS" attribute- vector 

"RESULT" result-identifier. */ 



vector_element *tempjuectorJiead; 
matrix_element ^matrixjpointer; 
boolean found = FALSE; 
char message [Max_Error_Message_Length] ; 

if ((token^token ^ TK.KEYWORD) V (token->details.keyword ^ KW.FACTS)) 
error_exit(log_stream, "keyword u FACTS u expected u in u ideal u point" , token)] 

/* get the next token (it should be an attribute vector) */ 

*token = Get_Token(in_stream 1 log_stream); 

if (token->token ^ TK_ATTRIBUTE_VECTOR) 
error_exit(log_stream, 

"attribute u vector u expected u in u ideal u point u " 
"after u keyword u FACTS", token); 

/* check that there are as many values in the attribute vector as there are attributes */ 

matrixjpointer = token— > details, matrixjiead; 
for (; 

(attribute jpointer ^ NULL) A (matrixjpointer ^ NULL)] 
attributejpointer = attribute_pointer^>next) 
matrixjpointer = matrixjpointer^casejnext; 
if (attributejpointer ^ NULL) 

error_exit(log_stream, "too u f ew u values u iri u attributeuvector", token); 
if (matrixjpointer ^ NULL) 

error_exit(log_stream, "too u many u values u in u attribute u vector" , token); 
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/* convert the attribute vector from a list of matrix elements into a list of vector 
elements */ 

temp_vector_head = vector_from_matrix(log_stream, token-^ details. matrix Jiead, token); 

/* get the next token (it should be the keyword RESULT) */ 

*token = Get_Token(in_stream, log_stream); 

if ((token-^token ^ TK.KEYWORD) V (token^detatls.keyword ^ KW.RESULT)) 
error_exit(log_stream, "keyword u RESULT u expecteduiri u id.eal u poiiit" , token); 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

if {token->token ^ TKJDENTIFIER) 
error _exit(log_stream, 

"identif ieruexpected u inuideal u point u after u keyword u RESULT" , token); 

/* find the result identifier in the list of results, and link that result to the ideal point */ 

do { 

if (resultjpointer = NULL) { 

sprintf (message, "y»s u result u not u f ound" , token— >details.identifter); 
error _exit (log _stream, message, token); 

} 

found = -istrcmp(token—>details. identifier, result_pointer—>-identifier); 

if (found) { 

if (result_pointer^fideal_point_head = NULL) 

result_pointer^fideal_point_head = tempjvectorjaead; 
else { 

sprint] "(message, 

"ideal u point u f or u /oS u resultualready u specif ied" , 
token— >details.identifter) ; 
error ■_ exit (log _stream, message, token); 

} 
} else 

resultjpointer = result_pointer—>-next; 
} while (-1 found); 

(*count)++; 

/* get the next token (it should be the keyword IDEAL, the keyword AREA, or the end of 
the file) */ 

*token = Get_Token(in_stream, log_stream); 
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static void 

parse_area_block( 

file in_stream, 
file log_stream, 
area * area_pointer, 
token_details *token, 
court * court Jiead) 

/* Parses an area block, and puts details in the area pointed to by areajpointer. The keyword 
AREA and an area identifier have just been read; the identifier's details are pointed to by 
token. 

EBNF: area = area-header area-block, 

area-header = "AREA" area-identifier, 
area-block = [opening] [closing] 

results 

attribute { attribute } 

case { case } 

{ideal-point }. 
area-identifier = identifier, 
opening = "OPENING" string, 

closing = "CLOSING" string. */ 



cardinal number _oficases = 0, 

number_of_ideal_points = 0; 
result * result jpointer; 

areajpointer^*identifier = token— *details. identifier; 

Indent(log_stream, 1); 

fprintf (log_stream, " / s u area: \n\n" , area jpointer ^identifier); 

/* get the next token (it should be the keyword OPENING, the keyword CLOSING, or the 
keyword RESULTS) */ 

*token = Get_Token(in_stream, log_stream); 

if ((token^token = TK_KEYWORD) A (token^detatls.keyword = KW_OPENING)) { 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if (token->token ^ TK.STRING) 

error_exit(log_stream, "string u expected u after u keyword u OPENING", token); 

areajpointer—* opening = token— ^details. string; 

/* get the next token (it should be the keyword CLOSING, or the keyword RESULTS) */ 

*token = Get_Token(in_stream, log_stream); 
} else 

areajpointer—* opening = NULL; 



§5 The Parser module 

if ((token^token = TK.KEYWORD) A (token->details.keyword = KW.CLOSING)) { 

/* get the next token (it should be a string) */ 

*token = Get_Token(in_stream, log_stream); 

if {token->token ^ TK.STRING) 

error_exit(log_stream, "string u expected u after u keyword u CLOSING" , token); 

area _pointer^> do sing = token— ^details, string; 

/* get the next token (it should be the keyword RESULTS) */ 

*token = Get_Token(in_stream, log_stream); 
} else 

area_pointer—>closing = NULL; 

if {{token->token ^ TK_KEYWORD) V (token->details.keyword ^ KW_RESULTS)) 
error_exit(log_stream, "keyword u RESULTS u expected u in u results u header" , token); 

/* get the next token (it should be a result identifier) */ 

*token = Get_Token(in_stream, log_stream); 

area_pointer^>number_of_results = 0; 

area_pointer—>result_head = parse_results(in_stream 1 log_stream, token, 
& area_pointer^number_of_results) ; 

switch (area_pointer^number_of_results) { 
case 0: 

error _exit ( log_stream, 

"no u results u (at u least u two u are u required) " , NULL); 
break; 
case 1: 

error _exit ( log_stream, 

"only u one u resultu(at u least u two u are u required) " , NULL); 
break; 
default : 

Indent(log_stream, 2); 
fprintf (log_stream, 

"°/,u u results\n", area_pointer—>number_of_results); 
break; 
} 

if ((token^token ^ TK.KEYWORD) V (token^detatls.keyword ^ KW.ATTRIBUTE)) 
error_exit(log_stream, "keyworduATTRIBUTE u expected u in u attribute u header" , 
token); 

/* get the next token (it should be the keyword QUESTION, or the keyword AREA) */ 

*token = Get_Token(in_stream, log_stream); 

area_pointer^number_of_attributes = 0; 

area_pointer^> attribute Jiead = parse_attributes(in_stream, log_stream, 

area_pointer—>result_head, token, area_pointer^>identifter, 

&iarea_pointer^number_of_attributes); 
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Indent(log_stream, 2); 

fprintf ' (log_stream, " /oU u attribute°/ s\n." , area_pointer^number_of_attributes, 
area_pointer—>number_of_attributes = 1 ? Empty_String : "s"); 

if ((token-^token ± TK.KEYWORD) V (token-^details.keyword ^ tfW.CASE)) 

error_exit(log_stream, "keyword u CASE u expected u in u case u header" , token)] 

while ((token-^token = TK.KEYWORD) A (token-^details.keyword = KW.CASE)) { 
/* get the next token (it should be a string) */ 
*token = Get_Token(in_stream, log_stream); 

parse_case(in_stream, log_stream, courtjiead, areajpointer, token, h,number_of_cases); 

} 

Indent(log_stream, 2); 

fprintf (log_stream, "°/oU u case°/,s\n", number_of_cases, 
number _of_cases = 1 ? Empty _String : "s"); 

for (resultjpointer = area_pointer^>result_head; resultjpointer ^ NULL] 
resultjpointer = resultjpointer^-next) 
rank_cases(!kresult_pointer—>case_head); 

number_cases(area_pointer^result_head); 

cross Jink (area_pointer^>result_head, area _pointer^> attribute _head) ; 

while ((token-^token = TK.KEYWORD) A 

(token— ^details. keyword = KWJDEAL)) { 

/* get the next token (it should be the keyword FACTS) */ 

*token = Get_Token(in_stream, log_stream); 

parse_ideal_point(in_stream, log_stream 1 area_pointer^result_head, 

area_pointer—>attribute_head, token, & number _of_ideal_points) ; 

} 

if (number _of_ideal_points ^ 0) { 
Indent(log_stream, 2); 

fprintf (log_stream, "y»u u ideal u point /os\n" , number_of_idealjpoints, 
number _of_ideal_points = 1 ? Empty _String : "s"); 

} 

fprintf (log_stream, "\n"); 

area_pointer—>correlation_coefficients = FALSE; 
areajpointer^next = NULL; 

check_for_identical_cases(log_stream, areajpointer); 
} 
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static area * 
parse_areas( 

file in_stream, 

file log_stream, 

court * court Jiead) 

/* Parses areas, and returns a pointer to a list of areas. The keyword AREA has just been 
read. */ 



{ 



area *area_head = NULL, 

^areajpointer = NULL, 

*temp_area_pointer; 
token_details token; 
char message[Max_Error_Message_Length] ; 

do { 

/* get the next token (it should be an area identifier) */ 

token = Get_Token(in_stream, log_stream); 

if (token.token ^ TKJDENTIFIER) 
error _exit ( log_stream, 

" ident if ier u expected u in u area u header u af ter u keyword u AREA " , & token) ; 

if (areajiead = NULL) { 

/* allocate memory for this area (the first in the list) */ 

if ((areajiead = {area *) malloc(sizeof (area))) = NULL) 

error ■_ exit ( log _stream, "malloc u f ailed u during u area u handling" , kitoken); 

areajpointer = areajiead; 

} else { 

/* go to the end of the list of areas, checking that an area with this identifier has 
not already been specified */ 

for (temp_areajpointer = areajiead; temp_areajpointer =/= NULL; 
temp_area_pointer = temp_areajpointer^>next) 
if (->strcmp(token.details.identifier, temp _areajpointer •^■identifier)) { 
sprintf (message, "°/,s u area u already u specif ied", 

token.details. identifier); 
error_exit(log_stream, message, kitoken); 
} 
/* allocate memory for this area */ 

if ((areajpointer^next = (area *) malloc(sizeof(area))) = NULL) 

error ■_ exit ( log _stream, "malloc u f ailed u during u area u handling" , kitoken); 

areajpointer = areajpointer^>next; 

} 

parse_area_block(in_stream, log_stream, areajpointer, kitoken, courtjiead); 

} while ((token.token = TK.KEYWORD) A (token.detatls.keyword = KW.AREA)); 

if (token.token ^ TK_EOF) 

error_exit(log_stream, "end u of u f ile u expected", kitoken); 

return areajiead; 
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extern case_law_specification 
Parse_Specification( 

file in.stream, 

file log_stream) 

/* Parses the specification file in.stream, and returns a case law specification. 
EBNF: specification = [hierarchy] 



{ 



area { area }. 

case_law_specification case Jaw; 

token_details token; 

cardinal number :of .courts = 0; 

/* get the first token */ 

token = Get_Token(in_stream, log_stream); 

if {{token.token = TK.KEYWORD) A (token, details, keyword = KW .HIERARCHY)) { 

/* get the next token (it should be a court identifier) */ 

token = Get_Token(in_stream, log.stream); 

case Jaw. court .head = parse_hierarchy(in_stream, log.stream, Sitoken, 
& number _oj '.courts) ; 

if (casejaw.courtjiead = NULL) 
error .exit ( log.stream, 

"identif ier u expected u iri u hierarchyublock u " 
"af ter u keyword u HIERARCHY" , ktoken); 
else { 

Indent(log .stream, 1); 

fprintf (log.stream, " /oU u court /oS u in u the u hierarchy . \n\n" , 

number _oj ".courts, number :oj ".courts = 1 ? Empty .String : "s"); 
} 

} else 

casejaw.courtjiead = NULL; 

if ((token.token ^ TK.KEYWORD) V (token.detatls. keyword ± KW.AREA)) 

error_exit(log_stream, "keyword u AREA u expected u in u area u header" , kitoken); 

case.law.area.head = parse_areas(in_stream, log.stream, casejaw.courtjiead); 

return case.law; 
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dumper . h 

/* This is the header file for the Dumper module. It is also included by the Cases, Odometer 
and Reporter modules. */ 

/* external functions */ 

extern void 

Write_Matrix ( 

file stream, 
area * area_pointer, 
vector_element *facts_head, 
court *court_head, 
boolean hypothetical, 
cardinal number) ; 

extern void 

Write_ Year_and_Court( 
file stream, 
kase *case_pointer, 
cardinal level); 

extern void 

Dump_Speciftcation( 

file dump_stream, 
file log_stream, 

case_law_specification casejaw, 
boolean inputablejatex, 
boolean verbose); 
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dumper . c 

/* This is the implementation file for the Dumper module. */ 

^include (stdio.h) 
^include " shyster. h" 
^include " cases. h" 
^include "dumper. h" 
^include " odometer. h" 

static void 

warning ( 

file stream, 

const string message) 

{ 

Write_Warning_Message(stream, "Dumper", message, Top_Level); 

} 

static void 

write_hierarchy_table( 

file dump_stream, 
court * courtjpointer) 

/* Writes a table of courts, with their ranks */ 

{ 

boolean samejrank = FALSE; 

fprintf (dump_stream, l|0 / s{Hierarchy}\n\n", Heading); 

Indent ( dump_stream, 1 ) ; 

fprintf (dump_stream, "\\begin{small}\n"); 

Indent(dump_stream, 2); 

fprintf (dump _stream, "\\begin{trivlist}\\item[] \n"); 

Indent(dump_stream, 3); 

fprintf (dump _stream, "\\begin{tabular}{ I r 1 1 1 }\\hline\n"); 

Indent ( dump _str earn, 4); 

fprintf ( dump_stream, 

"\\multicolumn{lH I c I H$c$}&" 

"\\multicolumn{l}{c|}{\\it u Court\\/}\\\\\\hline\\hlirie"); 

/* while there are still courts to list ... */ 

while (courtjpointer ^ NULL) { 
fprintf (dump _stream, "\n"); 
Indent(dump_stream, 4); 
if (-< samejrank) 

fprintf (dump _stream, "°/ u", court_pointer^>rank); 
fprintf (dump _stream, "&7 s\\\\", courtjpointer^ string); 
if (courtjpointer^next ^ NULL) 

samejrank = (courtjpointer^rank = court_pointer—>next—>-rank); 
courtjpointer = courtjpointer^next; 

} 
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fprintf (dump _stream, "\\hline\n"); 
Indent(dump_stream, 3); 

fprintf (dump _stream, "\\end{tabular}\n"); 
Indent(dump_stream, 2); 

fprintf (dump _str earn, " \\end{tr ivlist}\n" ) ; 
Indent ( dump _str earn, 1); 

fprintf (dump _stream, "\\end{small}\n\n"); 
} 

static void 

write_ distance ( 

file stream, 

distance_subtype distance, 
boolean centre, 
boolean rule_at_right) 

/* Writes distance as a cell in a table of distances, centred (if centre is TRUE) and with a 
vertical rule at the right (if rule_at_right and centre are both TRUE). */ 



{ 



if (distance. infinite =/= 0) { 

if (Is_Zero(distance.finite)) { 

/* the distance has an infinite component, but no finite component */ 

if (distance. infinite = 1) 
if (centre) 

fprintf (stream, "\\multicolumn{lMc%sH$\\inf ty$>" , 
rule_at_nght ? "I" : ""); 
else 

fprintf (stream, "$\\inf ty$"); 
else if (centre) 

fprintf (stream, "\\multicolumn{l}{c°/,s}{$7 u\\inf ty$}" , 
rule_at_right ? " I " : "", distance. infinite); 
else 

fprintf (stream, "$°/ u\\inf ty$", distance.infinite); 

} else { 

/* the distance has both a finite component and an infinite component */ 

if (distance.infinite = 1) { 

fprintf (stream, "$\\infty$+"); 

Write_Floating_Point(stream, distance. finite, Empty _String); 
} else { 

fprintf (stream, "$°/ u\\inf ty$+", distance.infinite); 

Write_Floating_Point(stream, distance. finite, Empty _String)\ 
} 
} 
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} else { 

if (Is_Zero(distance.finite)) { 

/* the distance has neither a finite component nor an infinite component */ 

if (centre) 

fprintf (stream, "\\multicolumn{l}{c°/ s}{ — }", rule_at_right ? " I " : ""); 
else 

fprintf (stream, " — "); 

} else 

/* the distance has a finite component, but no infinite component */ 
Write_Floating_Point(stream, distance. finite, Empty _String); 



} 



} 



static void 

write _metrics( 

file stream, 

metrics_type metrics, 

boolean weighted_association_coefficient, 

boolean correlation_coefficients) 

/* Writes, as cells in a table of distances, each of the metrics in metrics: the known distance g?k, 
the unknown distance d\j, the unweighted distance A, the association coefficient S, the 
weighted association coefficient S" (if weighted_association_coefficient is TRUE), the cor- 
relation coefficient r (if correlation_coefficients is TRUE), and the weighted correlation 
coefficient r' (if correlation_coefficients is TRUE). */ 



{ 



write_distance (stream, metrics. distance. known, TRUE, FALSE); 
fprintf (stream, "&"); 

write_distance(stream,metrics.distance.unknown, TRUE, TRUE); 
fprintf (stream, "&"); 

if (metrics. number _of_known_pairs = 0) { 

/* there are no known pairs, so write zeroes ("-") for A, S and <S", and nothing for r 
and r' */ 

fprintf (stream, " — & — &"); 

if (weighted_association_coefficient) 

fprintf (stream, " — &"); 
if (correlation_coefficients) 

fprintf (stream, "&&"); 
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} else { 

if (metrics. number_of_known_differences = 0) { 

/* there are no known differences, so write zeroes ("-") for A, S and S' */ 

fprintf (stream, " — & — &"); 
if (weighted_association_coefflcient) 
fprintf (stream, " — &"); 

} else { 

/* there are known differences, so write values for A, S and S' */ 

fprintf (stream, "°/ u&", metrics. number_of_known_differences); 
Write_Floating_Point(stream, 

(floating-point) metrics. number _of_known_differences / 
metrics. number_of_known_pairs, Empty _String) ; 
fprintf (stream, "&"); 
if (weighted_association_coefflcien£) { 
Write_Floating_Point(stream, 

metrics.weighted_association_coefflcient, Empty_String) ; 
fprintf (stream, "&"); 

} 

} 

if (correlation_coefflcients) 

if (metrics. correlation_coefflcient.meaningless) 

/* either this case (or ideal point or centroid) or the instant case has all attribute 
values equal: the correlation coefficients r and r' are meaningless */ 

fprintf (stream, "&&"); 

else { 

/* write values for r and r' */ 

Write_Floating_Point (stream, 

metrics. correlation_coefflcient.unweighted, Empty _String); 
fprintf (stream, "&"); 
Write_Floating_Point (stream, 

metrics. correlation_coefflcient.weighted, Empty _String); 
fprintf (stream, "&"); 

} 
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static boolean 
all_three_equal( 

distance_subtype x, 

distance_subtype y, 

distance_subtype z) 

/* Returns TRUE, iff distances x, y and z are equal. */ 

{ 

return ((x. infinite = y. infinite) A 

Is_Equal(x. finite, y. finite, Distance_Precision) A 

(x.infinite = z. infinite) A 

Is_Equal(x. finite, z.finite, Distance_Precision)); 

} 

static void 

write_result( 

file stream, 
cardinal count, 
cardinal first_result_row, 
boolean write_directions, 
result * result jpointer) 

/* Writes the identifier, and the strength of every non-zero direction (if write _directions is 
TRUE), for the result pointed to by resultjpointer, as cells in a table of distances. Writes 
the identifier, then the directions, in consecutive rows of the "Result" column, starting with 
row first_result_row so that the information is centred vertically. */ 



{ 



static boolean specified_to_be_written, 
ideal_point_to_be_written, 
centroid_to_be_written, 
all_to_be_written; 

if (count = first_result_row) { 

/* the result identifier should be written in this row */ 

fprintf (stream, "{'/.SuXs}", Identifier_Font, result_pointer—>identifter); 

if (write_directions) { 

/* determine which directions will be written (on subsequent invocations of this 
function) */ 

specified_to_be_written = 

-iIs_Zero_Subdistance(result_pointer—>specifted_direction); 
ideal_point_to_be_written = 

-iIs_Zero_Subdistance(result_pointer^>ideal_point_direction)\ 
centroid_to_be_written = 

-iIs_Zero_Subdistance(result_pointer^fcentroid_direction); 
all_to_be_written = (specified_to_be_written A 

ideal_point_to_be_written A centroid_to_be_written A 
all_three_equal(result_pointer^>specified_direction, 
result_pointer^>ideal_point_direction, 
result_pointer^fcentroid_direction)); 
} 
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} else if (write_directions A (count > first_result_row)) { 



/* write the strength of the next non-zero direction: a => symbol is used for specified 
direction; a => symbol for ideal point direction; a =^> symbol for centroid direction; 
a =4> symbol if all three directions are of the same strength */ 

if (all_to_be_written) { 

fprintf (stream, "°/,s\\, ", All_Directions_Symbol); 

write_distance(stream, result_pointer^>specified_direction, FALSE, FALSE); 

all_to_be_written = FALSE; 

specified_to_be_written = FALSE; 

ideal_point_to_be_written = FALSE; 

centroid_to_be_written = FALSE; 
} else if (specified _to_be_written) { 

fprintf (stream, "°/ s\\, ", Specified_Direction_Symbol); 

write_distance(stream, result_pointer^>specified_direction, FALSE, FALSE); 

specified_to_be_written = FALSE; 
} else if (ideal_point_to_be_written) { 

fprintf (stream, "%s\\, ", Ideal_Point_Direction_Symbol); 

write _distance(stream, result_pointer^ideal_point_direction, FALSE, FALSE); 

ideal_point_to_be_written = FALSE; 
} else if (centroid_to_be_written) { 

fprintf (stream, "°/ s\\,", Centroid_Direction_Symbol); 

write_distance(stream, result_pointer—>centroid_direction, FALSE, FALSE); 

centroid _to_be_written = FALSE; 
} 
} 
} 

extern void 

Write_Matrix ( 

file stream, 

area *areajpointer, 

vector _element *facts_head, 

court *court_head, 

boolean hypothetical, 

cardinal number) 

/* Writes a matrix of attribute values and (if factsjiead is TRUE) metric information, for the 
instant case, the cases in the area pointed to by areajpointer, the ideal points in that area, 
and each result's centroid (if they have been calculated). If number is not zero then the 
instant case is actually a hypothetical (if hypothetical is TRUE) or an instantiation, and 
number is its number. */ 

{ 

result *result_pointer; 
kase *case_pointer; 
matrix_element *matrix_pointer; 
vector ^element ^vector '.pointer; 
centroid_element * centroidjpointer; 
cardinal count, 
first_result_row ; 
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Indent(stream, 1); 

fprintf (stream, " \\begin{small}\n" ) ; 

Indent(stream, 2); 

fprintf (stream, "\\begin{tabular}{*{2}{ I c}"); 

if (area_pointer—>number_of_attributes > 1) 

fprintf (stream, "*{°/.uHQ-C\\rispace{y„s}}c} I ", 

area_pointer^>number_of_attributes — 1, Matrix_Column_S eparation); 

if (courtjiead ^ NULL) 

/* there will be a column for the rank of each case's court */ 

fprintf (stream, "r| "); 
if (factsjiead ± NULL) { 

/* there will be columns for metric information */ 

fprintf (stream, "r®{\\hspace{7 s}}r I r I ", Column_S eparation); 

if (area jpointer ^infinite _w 'eight) 

/* at least one of the attribute's weights is infinite, so the values obtained for S' are 
meaningless: there will be no S' column */ 

fprintf (stream, "c| "); 
else 

/* there will be an S' column */ 

fprintf (stream, "cS{\\rispace{°/,s}}c I ", Column_Separation); 

if (area_pointer—>correlation_coefficients) 

/* the instant case does not have all attribute values the same, and not every case, 
ideal point and centroid has all attribute values the same: there will be columns 
for the correlation coefficients r and r' (if either of these conditions does not 
hold, all the values of r and r' are meaningless) */ 

fprintf (stream, "rS{\\hspace{°/,s}}r I ", Column_Separation)\ 

} 

fprintf (stream, "c I }\\hline\n"); 

/* write the column headings */ 

Indent(stream, 3); 

fprintf (stream, "&\\multicolmnri{7 u}{ I c I }{\\it u Attributes\\/}&" , 
area_pointer^fnumber_of_attributes); 

if (courtjiead ± NULL) 
fprintf (stream, "&"); 
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if (Jactsjiead ^ NULL) { 
fprintf (stream, "&&&&"); 
if (->area_pointer—>-infinite_weight) 

fprintf (stream, "&"); 
if (area_pointer^correlation_coefficients) 

fprintf (stream, "&&"); 

} 

fprintf (stream, "\\\\\n"); 

Indent(stream, 3); 

fprintf (stream, "\\smash{\\raisebox{7 s]-{\\it u Case\\/}}&" , Raise_Height); 

for (count = 1; count < area_pointer—>number_of_attributes; count++) 
fprintf (stream, "$A_{ / u}-$&", count); 

if (courtjiead ± NULL) 

fprintf (stream, "\\multicolumn{l}{c I }{\\smash.{\\raisebox{ /osM$c$]-}}&" , 
Raise_Height) ; 

if (Jactsjiead ^ NULL) { 
fprintf (stream, 

ll \\multicolumn{l}{c}-[\\smash{\\raisebox{y,s}{$d_{\\rin u K}$}}}& 11 

"\\multicolumn{l}{c|}{\\smash{\\raisebox{ /os}-[$d_-[\\rm u U}$>}}&" 

"\\multicolumii{l}{c|}{\\sniash{\\raisebox{7os}{$\\Delta$}}}&" 

"\\smash{\\raisebox{°/,sH$S$}}&", 

Raise_Height, Raise_Height, Raise_Height, Raise_H eight) ; 

if (->area_pointer—>infinite_weight) 

fprintf (stream, "\\smash{\\raisebox{%sH$S '$}}&", 
Raise_H eight) ; 

if (area_pointer^correlation_coefficients) 

fprintf (stream, "\\multicolmnn{l}{c}{\\smash{\\raisebox{%s}{$r$}}}&" 
"\\multicolmnn{l}{c I }{\\smash{\\raisebox{y„s}{$r' $}}}&", 
Raisejieight, Raise_Height) ; 

} 

fprintf (stream, "\\smash{\\raisebox{7„s}{\\it u Result\\/>}\\\\\\hline" , 
Raise_H eight); 

if (Jactsjiead ^ NULL) { 

/* write details of the instant case */ 

fprintf (stream, "\\hline\n"); 
Indent(stream, 3); 

if (number = 0) 

/* the instant case is the uninstantiated and unhypothesized instant case */ 

fprintf (stream, " $C_{\\rm u Instant}$&" ) ; 
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else if (hypothetical) 

/* the instant case is hypothetical number */ 

fprintf (stream, "$C_{\\mbox{\\scriptsize u Hypo- / u}]-$&", number); 

else 

/* the instant case is instantiation number */ 

fprintf (stream, "$C_{\\mbox{\\scriptsize u Inst- / u}]-$&", number); 

/* write the attribute values for the instant case: a • symbol for YES; a x symbol for 
NO; a blank space for UNKNOWN */ 

for (vector jpointer = factsjiead; vector jpointer ^ NULL; 
vector jpointer = vector_pointer^>next) 
fprintf (stream, "°/ s&", 

vector_pointer—>attributejvalue = YES ? Yes_Symbol : 
vectorjpointer^-attributejvalue = NO ? No_Symbol : 
Unknown_Symbol) ; 

/* leave an appropriate number of columns empty */ 

fprintf (stream, "\\multicolumn{°/ou}{c I }{}\\\\\\hline", 
courtjiead = NULL ? 
areajpointer^finfinitejweight ? 
area_pointer—>correlation_coefficients ? 7 : 5 : 
area_pointer^correlation_coefficients ? 8 : 6 : 
area_pointer—>infinite_weight ? 
area_pointer^correlation_coefficients ? 8 : 6 : 
area_pointer—>correlation_coefficients ? 9 : 7); 
} 

/* for every result ... */ 

for (resultjpointer = area_pointer—>result_head; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) { 

/* determine the first row in which information should appear, for this result, in the 
" Result" column so that the information is centred vertically */ 

first_result_row = 0; 

for (casejpointer = result jpointer^>case_head; casejpointer ^ NULL; 
casejpointer = casejpointer^next) 
first_result_row++; 
if (resultjpointer^fidealjpointjiead ^ NULL) 

first_result_row++; 
if (resultjpointer— >centroid_head =/= NULL) 

first_result_row ++; 
if (firstjresultjrow ^ 0) { 

if ((facts_head ± NULL) A (first_result_row > 1) A 

-iIs_Zero_Subdistance(result_pointer^>specified_direction)) { 
first_result_row — ; 
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if (-iall_three_equal(result_pointer^specified_direction, 
result_pointer^>ideal_point_direction, 
result_pointer^centroid_directionj) { 
if ((first_result_row > 1) A 

-iIs_Zero_Subdistance(result_pointer^>ideal_point_direction)) 
first_result_row — ; 
if ((first_result_row > 1) A 

->Is_Zero_Subdistance(result_pointer^centroid_direction)) 
first_result_row — ; 

} 
} 
first_result_row = (first_result_row + 1) / 2; 

count = 1; 

fprintf (stream, "Whline"); 

/* for every case with this result ... */ 

for (casejpointer = result_pointer^>case_head; casejpointer ^ NULL] 
casejpointer = casejpointer^next) { 
fprintf (stream, "\n"); 
Indent(stream, 3); 
fprintf (stream, "$C_{°/»u}$&", casejpointer— ^number); 

/* write the attribute values for this case */ 

for (matrixjpointer = casejpointer— >matrix_head; matrixjpointer ^ NULL; 
matrixjpointer = matrixjpointer^casejnext) 
fprintf (stream, "°/ s&", 

matrixjpointer^attributejvalue = YES ? Yes_Symbol : 
matrix_pointer^>attributejvalue = NO ? No_Symbol : 
Unknown_Symbol) ; 

if (court.head ^ NULL) 

/* write the rank of the case's court */ 

if ((casejpointer— >court_string =/= NULL) A 
(casejpointer^-courtjrank ^ 0)) 

fprintf (stream, "°/ u&", casejpointer— >court_rank); 
else 

fprintf (stream, "\\f ootnotesize?&"); 

if (facts_head ^ NULL) 

write jmetrics (stream, casejpointer^metrics, 

-iarea_pointer^>infinite_weight, area_pointer—>correlation_coefficients); 

write_result(stream, count++, first_result_row, factsjiead ^ NULL, 

resultjpointer) ; 
fprintf (stream, "WW"); 
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/* write a line (an appropriate number of columns wide) under the cases for this 
result */ 

if ((resultjpointer^casejiead =/= NULL) A 

((result_pointer—>ideal_pointJiead =/= NULL) V 

(resultjpointer^centroidjiead ^ NULL))) 
fprintf (stream, "\\cline{2- / u}", factsjiead = NULL ? 
courtjiead = NULL ? 
area_pointersnumber_of_attributes + 1 : 
area_pointer^number_of_attributes + 2 : 
courtjiead = NULL ? 
area_pointer^inftnite_weight ? 
area_pointer—>correlation_coefficients ? 
area_pointer^>number_of_attributes + 7 : 
area_pointer^number_of_attributes + 5 : 
area_pointer—>correlation_coefficients ? 
area_pointer^number_of_attributes + 8 : 
area_pointer^number_of_attributes + 6 : 
area_pointer—>inftnite_weight ? 
area_pointer^correlation_coefficients ? 
area_pointer^>number_of_attributes + 8 : 
area_pointer^>number_of_attributes + 6 : 
area_pointer—>correlation_coefficients ? 
area_pointersnumber_of_attributes + 9 : 
area_pointer^number_of_attributes + 7); 

if (result_pointer—>ideal_pointJiead =/= NULL) { 

/* this result has an ideal point, so write its details */ 

fprintf (stream, "\n"); 
Indent(stream, 3); 

fprintf (stream, "$I_{\\mbox{\\scriptsize /oS u °/os}}$&", 
Identifier J^ont, result_pointer—>-identifier) ; 

/* write the attribute values for this ideal point */ 

for (vectorjpointer = resultjpointer^idealjpointjiead; 

vector '.pointer ^ NULL; vectorjpointer = vector '.pointers-next) 
fprintf (stream, "°/ s&", (vector_pointer^attribute_value = YES ? 

Yes_Symbol : (vector_pointer^>attribute_value = NO ? 
No_Symbol : UnknownJ3ymbol)))\ 

if (courtjiead ± NULL) 
fprintf (stream, "&"); 

if (factsjiead ^ NULL) 

write_metrics (stream, result_pointer^ideal_point_metrics, 

->area_pointersinfinite_weight, area_pointer—>correlation_coefficients); 

write_result (stream, count++, first_result_row, factsjiead =/= NULL, 

resultjpointer) ; 
fprintf (stream, "WW"); 
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if (result_pointer—>centroid_head =/= NULL) { 

/* this result has a centroid, so write its details */ 

fprintf (stream, "\n"); 
Indent(stream, 3); 

fprintf (stream, "$\\mu_{\\mbox{\\scriptsize°/oS u %s}}$&" , 
Identifier_Font, result_pointer—>identifter) ; 

/* write the attribute values for this centroid */ 

for (centroidjpointer = result jpointer^centroidjiead; 

centroidjpointer ^ NULL; centroidjpointer = centroid_pointer^>next) 
fprintf (stream, "°/ s&", 

centroidjpointer ^unknown ? Unknown_Symbol : 
Nearest_Attribute_Value(centroid_pointer— rvalue) = YES ? 
Yes_Symbol : No_Symbol); 

if (court.head ± NULL) 
fprintf (stream, "&"); 

if (Jactsjiead ± NULL) 

writejmetrics (stream, result jpointer^centroidjmetrics, 

-i area_pointer^>infinitejweight, area_pointer—>correlation_coefficients) ; 

write_result(stream, count++, firstjresultjrow, factsjiead ^ NULL, 

result jpointer) ; 
fprintf (stream, "WW"); 

} 

fprintf (stream, "Whline"); 

} 

} 

fprintf (stream, "\n"); 

Indent(stream, 2); 

fprintf (stream, " \\end{tabular]-\n" ) ; 

Indent(stream, 1); 

fprintf (stream, " \\end{small}\n\n" ) ; 



static void 

write_opening_and_closing( 
file dump_stream, 
area * areajpointer, 
boolean verbose) 

/* Writes the opening and closing strings for the area pointed to by areajpointer. Writes each 
string in full only if verbose is TRUE. */ 
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{ 

if (area jpointer^ opening =/= NULL) { 

fprintf (dump_stream, "°/ s{Opening}-\n\n", Subheading); 
Indent(dump_stream, 1); 

fprintf (dump_stream, "\\begin{listM}{\\leftmargin=Omm}\\item[] \n"); 
if (verbose) 

Write(dump_stream 1 area_pointer^opening, Empty_String 1 2, Hang); 
else 

Write(dump_stream, " [Opening.] ", Empty_String, 2, Hang); 
Indent (dump_stream, 1); 
fprintf (dump_stream, "\\end{list}\n\n"); 

} 

if (area_pointer—>closing =/= NULL) { 

fprintf (dump_stream, "°/ s{Closing}\n\n", Subheading); 
Indent(dump_stream, 1); 

fprintf (dump_stream, "\\begin{list}O{\\leftmargin=0mm}\\item[] \n"); 
if (verbose) 

Write(dump_stream, area_pointer^>closing, Empty _String, 2, Hang); 
else 

Write(dump_stream 1 " [Closing.] ", Empty_String, 2, Hang); 
Indent (dump_stream, 1); 
fprintf (dump_stream, "\\end{list}\n\n"); 

} 
} 

static void 

write_result_list( 

file dump_stream, 
result * result jpointer) 

/* Writes details of each result in the list of results pointed to by resultjpointer. */ 

{ 

fprintf (dump_stream, "7 s{Results}\n\n", Subheading); 
Indent ( dump _str earn, 1 ) ; 

fprintf (dump_stream, "\\begin{description}\n\n"); 

/* while there are still results ... */ 

while (resultjpointer ^ NULL) { 
Indent(dump_stream, 2); 
fprintf (dump_stream, "Witem [\\rm{°/ s u y»s} : ] \n" , 

Identifier '_Font, result jpointer^identifier) ; 
Write(dump_stream, result jpointer^>string, " . \n", 3, No_Hang); 
resultjpointer = result_pointer^>next; 

} 

Indent (dump_stream, 1); 

fprintf (dump <_stream, "\\end{description}\n\n"); 

} 
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static void 

write_attribute_list( 

file dump_stream, 

attribute *attribute_pointer) 

/* Writes details of each attribute in the list of attributes pointed to by attribute _pointer. */ 

{ 

direction_list_element * direction_list_pointer; 
identifier _list_element ^identifier •_list_pointer\ 

fprintf (dump_stream, " / s{Attributes}\n.\n", Subheading)] 
Indent ( dump _str earn, 1); 

fprintf (dump_stream, "\\begin{description]-\n\n"); 

/* while there are still attributes ... */ 

while {attributejpointer ^ NULL) { 

Indent(dump_stream, 2); 

fprintf (dump_stream, "Witem [\\rm$A_{%u}$ : ] \n" , attribute_pointer^number) ; 

if (attribute_pointer—>external_attribute) { 

/* the attribute is external, so indicate the area to which it is linked using a <£4> 
symbol */ 

Indent(dump_stream, 3) ; 

fprintf (dump_stream, " /oS u {7oS u °/ s} u area\n", External_Area_Symbol 1 

Identifier J^ont, attribute_pointer^>details.external.area_identifier)\ 

} else 

/* the attribute is local, so write the attribute's question */ 

Write(dump_stream, attribute_pointer—>details.local.question 1 "?", 3, No_Hang); 

fprintf (dump_stream, "\n"); 

Indent(dump_stream, 3); 

fprintf (dump_stream, "\\begin{description}\n\n"); 

if (attribute_pointer—>yes =/= NULL) { 

/* the attribute has a YES string, so write it */ 

Indent(dump_stream, 4) ; 

fprintf (dump_stream, "Witem [\\sc u yes:] \n"); 
Write(dump_stream, attribute jpointer—tyes, " An", 5, No_Hang); 
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if (attribute jpointer^* external jattribute) { 

/* the attribute is external, so indicate the association of results from the ex- 
ternal area with YES values of this attribute using a •<= symbol (list the result 
identifiers, separated by a V symbol) */ 

identifier Jistjpointer = attributejpointer^-details.external.yesjdentifierjhead; 
while (identifier Jistjpointer ^ NULL) { 
if (identifier Jistjpointer = 

attributejpointer^details. external.yes_identifier_head) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf ( dump _str earn, " /oS u { /oS u / s}" , External_Result_Symbol, 

Identifier_Font, identifier Jist_pointer—>identifier) ; 
} else { 

fprintf (dump .stream, "~%s\n", Disjunction_Symbol); 

Indent(dump_stream, 5); 

fprintf (dump _stream, "{'/.s u 7 D s}", Identifier_Font, 

identifier Jistjpointer^>identifier); 

} 

identifier JAstjpointer = identifier Jistjpointer^next; 

} 

if (attributejpointer^details.external.yesjdentifierjiead ^ NULL) 
fprintf (dump _stream, "\n\n"); 

} 

/* indicate the specified direction for YES values of this attribute using a => symbol 
(list the result identifiers, separated by a V symbol) */ 

directionjistjpointer = attribute_pointer—>yes_directionJiead; 
while (directionjistjpointer ^ NULL) { 

if (directionjistjpointer = attribute_pointer—>yes_directionJiead) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf (dump jstream, " , /oS u {°/oS u %s]-" , Specified_DirectionjSymbol, 
Identifier _Font, directionJist_pointer—>result—>identifier) ; 
} else { 

fprintf (dump_stream, "~°/ s\n", DisjunctionjSymbol); 
Indent(dump_stream, 5); 

fprintf (dump jstream, "{%s u y»s}", Identifier_Font, 
direction Jist_pointer—*result-^ndentifier); 

} 

directionjistjpointer = directionJistjpointer^>next; 

} 

if (attributejpointer^fyesjdirectionjhead ^ NULL) 
fprintf (dump_stream, "\n\n"); 
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if (attribute_pointer—>no =/= NULL) { 

/* the attribute has a NO string, so write it */ 

Indent(dump_stream, 4) ; 

fprintf (dump_stream, "\\item[\\sc u no:] \n"); 
Write(dump_stream, attribute_pointer—>no, " . \n", 5, No_Hang); 

if (attributejpointer—>external_attribute) { 

/* the attribute is external, so indicate the association of results from the ex- 
ternal area with NO values of this attribute using a •<= symbol (list the result 
identifiers, separated by a V symbol) */ 

identifier 'Jistjpointer = attribute_pointer—>details. external.no Jdentifterjiead; 
while (identifier Jistjpointer ^ NULL) { 
if (identifier 'Jistjpointer = 

attribute _pointer^> details. external.no identifier Jiead) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf (dump _str earn, "7oS u {7oS u / s}" , External_Result_Symbol, 

Identifier_Font, identifier JAstjpointer^identifier) ; 
} else { 

fprintf (dump jstream, "~°/»s\n", Disjunction JSymbol); 

Indent (dump _stream, 5); 

fprintf (dump jstream, "{'/.s u '/,s}", Identifier_Font, 

identifier •Jist.pointer— ^identifier); 

} 

identifier Jistjpointer = identifier Jistjpointer •—mext; 

} 

if (attribute jpointer—* details. external.no Jdentifierjiead ^ NULL) 
fprintf (dump_stream, "\n\n"); 

} 

/* indicate the specified direction for NO values of this attribute using a => symbol 
(list the result identifiers, separated by a V symbol) */ 

direction Jistjpointer = attribute_pointer^>no_directionJiead; 
while (directionjistjpointer =/= NULL) { 

if (directionjistjpointer = attributejpointer^>no_directionJiead) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf (dump _stream, " , /oS u { , / s u %s}-" , SpeciftedJJirection_Symbol, 

Identifier '_Font, direction Jistjpointer— tresult-^identifier) ; 
} else { 

fprintf (dump _stream, "~°/ s\n", Disjunction_Symbol); 

Indent(dump_stream, 5); 

fprintf (dump _stream, "{°/oS u °/»s}", Identifier_Font, 

direction Jistjpointer— tresult-^identifier); 

} 

directionjistjpointer = directionJistjpointer^>next; 

} 

if (attribute_pointer^no_directionJiead ^ NULL) 
fprintf (dump _stream, "\n\n"); 
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if (attribute_pointer^unknown ^ NULL) { 

/* the attribute has an UNKNOWN string, so write it */ 

Indent(dump_stream, 4) ; 

fprintf (dump _stream, "\\item[\\sc u unknown:] \n"); 
Write(dump_stream, attribute_pointer—>unknown, " An", 5, No_Hang); 

if (attribute_pointer—>external_attribute) { 

/* the attribute is external, so indicate the association of results from the ex- 
ternal area with UNKNOWN values of this attribute using a •<= symbol (list 
the result identifiers, separated by a V symbol) */ 

identifier Jistjpointer = 

attribute_pointer—>details.externalunknownjdentifierJiead; 
while (identifier Jistjpointer ^ NULL) { 
if (identifier Jistjpointer = 

attributejpointer^details. external.unknown_identifier_head) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf (dump ^stream, "7oS u { /oS u / s}", External_Result_Symbol, 

Identifier_Font, identifier Jistjpointer^>identifier) ; 
} else { 

fprintf (dump .stream, "~%s\n", Disjunction_Symbol); 

Indent(dump_stream, 5); 

fprintf (dump <_stream, "{y»s u / s]-", Identifier_Font, 

identifier Jistjpointer^>identifier); 

} 

identifier Jistjpointer = identifier Jistjpointer^next; 

} 

if (attribute jpointer^ details, external.unknownjdentifierjiead =/= NULL) 

fprintf (dump_stream, "\n\n"); 
} 

/* indicate the specified direction for UNKNOWN values of this attribute using 
a => symbol (list the result identifiers, separated by a V symbol) */ 

directionjistjpointer = attribute_pointer^unknown_direction_head; 
while (directionjistjpointer ^ NULL) { 

if (directionjistjpointer = attribute_pointer—>unknown_directionJiead) { 

/* this is the first identifier to write */ 

Indent(dump_stream, 5); 

fprintf (dump_stream, " , /oS u {°/oS u %s]-" , Specifted_Direction_Symbol, 
Identifier '_Font, direction Jistjpointer—tresult-^identifier) ; 
} else { 

fprintf (dump_stream, "~°/ s\n", Disjunction_Symbol); 
Indent(dump_stream, 5); 

fprintf (dump_stream, "{°/oS u %s}", Identifier_Font, 
direction Jistjpointer^>result-^>identifier); 

} 

directionJist_pointer = directionJistjpointer^>next; 

} 



} 
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if (attribute_pointer^unknown_direction_head =/= NULL) 
fprintf (dump_stream, "\n\n"); 

} 

Indent(dump_stream, 3); 

fprintf (dump _stream, "\\end{description}\n\n"); 

if (-iattribute_pointer^external_attribute A 

(attributejpointer^fdetails.local.help ^ NULL)) 

/* the attribute has a help string, so write it */ 

Write(dump_stream, attribute_pointer^>details.local.help, "\n", 3, No_Hang); 

attributejpointer = attributejpointer^>next; 

} 

Indent (dump_stream, 1); 

fprintf (dump_stream, "\\end{description}\n\n"); 



extern void 

Write_ Year_and_Court( 
file stream, 
kase *case_pointer, 
cardinal level) 

/* Describes the case pointed to by casejpointer as "a year decision of court". */ 

{ 

cardinal hundreds = case_pointer^>year / 100; 

Indent(stream, level); 

if ((hundreds = 8) V (hundreds = 11) V (hundreds = 18)) 

fprintf (stream, "an"); 
else 

fprintf (stream, "a"); 
fprintf (stream, " u °/oU u decision", case_pointer^>year); 

if (case_pointer^court_string ^ NULL) { 

fprintf (stream, " u of \n"); 

Indent (stream, level); 

fprintf (stream, " U u7>s", case_pointer^>court_string); 
} 
} 

static void 

write_case_list( 

file dump_stream, 
file log_stream, 
area *areajpointer, 
boolean verbose) 

/* Writes details of each case in the area pointed to by areajpointer. Summarizes each case in 
full only if verbose is TRUE. */ 
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result *result_pointer = area_pointer—>result_head; 

kase * casejpointer; 

attribute * attribute jpointer; 

matrix_element * matrix jpointer; 

vector ^element ^vector 'jpointer ■; 

string attribute _string; 

char message [Max_Error_Message_Length] ; 

/* while there are still results ... */ 

while [result jpointer ^ NULL) { 

if {{result jpointer ^r case Jiead =/= NULL) V 

{result_pointer^ideal_point_head ^ NULL)) { 

/* this result has a case or an ideal point */ 

fprintf {dump _str earn, "%s{Cases u in u wliich u °/os}\n\n" , Subheading, 

resultjpointer^ string) ; 
Indent(dump_stream, 1); 
fprintf {dump _stream, "\\begiir[description.}\n\n" , result jpointer ^> string); 

/* for every case with this result ... */ 

for {casejpointer = result_pointer—>case_head; casejpointer ^ NULL] 
casejpointer = case jpointer '^next) { 

Indent{dump_stream, 2); 
fprintf { dump_stream, 

"\\item[\\rm$C_{°/ u}$ :] \\f ren.chspacing\n" , casejpointer^>number); 
Indent{dump_stream, 3); 
fprintf { dump_stream, 

"{\\it u °/os\\/} u \\nonfrenchspacing\n", case_pointer^>name); 
Indent{dump_stream, 3); 
fprintf (dump_stream, "°/ s\n.", casejpointer^ citation); 

if {casejpointer^shortjname =/= casejpointer^name) { 
Indent{dump_stream, 3); 

fprintf {dump _stream, " (' '\\frenchspacing\n"); 
Indent{dump_stream, 3); 

fprintf {dump _stream, "{\\it u 7 s\\/}\\nonf renchspacing' ' )\n", 
casejpointer— >short_name) ; 

} 

fprintf (dump _stream, "\n"); 

attributejpointer = areajpointer^attributejiead; 
matrixjpointer = case_pointer^matrix_head; 
Indent{dump_stream, 3); 
fprintf {dump_stream, "\\begin{description}\n\n"); 



dumper. c 113 

/* while there are still attributes ... */ 
while (attributejpointer =/= NULL) { 

/* write the strings corresponding to each attribute value for the case */ 

attribute_string = matrix_pointer^attribute_value = YES ? 

attribute jpointer—yyes : matrix_pointer^>attribute_value = NO ? 

attribute_pointer—>no : attribute _pointer—yunknown; 
Indent(dump_stream, 4) ; 
fprintf (dump_stream, "\\item[\\rm$A_{°/ u]-$ :] \n", 

attribute jpointer ^number) ; 

if (attribute _string = NULL) { 
sprintf (message, 

"A°/,u u in u cy»u u in u /oSuarea u rias u a u value u " 
"f or u which u there u is u no u string" , 
attribute_pointer^>number, case _pointer^> number, 
area_pointer^>identifier) ; 
warning (log _stream, message); 
Indent(dump_stream, 5); 
fprintf (dump _stream, "%s\n", NulLString); 
} else 

Write (dump _str earn, attribute _string, " .", 5, No_Hang); 
fprintf (dump _stream, "\n"); 

matrixjpointer = matrix_pointer^case_next; 
attributejpointer = attribute _pointer^>next; 
} 

/* summarize the case */ 

Indent(dump_stream, 3); 

fprintf (dump _stream, "\\end{description}\n\n"); 
if (case_pointer^> summary ^ NULL) { 
Indent(dump_stream, 3); 

fprintf (dump _stream, "In u \\frenchspacing\n"); 
Indent(dump_stream, 3); 
fprintf (dump _stream, "{\\it u / s}\\non.f ren.chspacin.g,y»°/ \n", 

casejpointer^name) ; 
Indent(dump_stream, 3); 

fprintf (dump _stream, "\\f ootnote{°/ s . }\n", case _pointer^> citation); 
if (verbose) { 

Write_Year_and_Court(dump_stream, casejpointer, 3); 
fprintf (dump _stream, " , \n"); 
if (case_pointer^> summary =/= NULL) 

Write (dump_stream, casejpointer^fsummary, Empty_String, 3, Hang); 
} else 

Write (dump _stream, " [summary] An", Empty_String, 3, Hang); 
fprintf (dump _stream, "\n"); 

} 
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if (resultjpointer^ideal_point_head =/= NULL) { 

/* this result has an ideal point, so write its details */ 

Indent(dump_stream, 2); 

fprintf ' (dump_stream, "\\item[$I_{\\mbox{\\scriptsize /oS u 7 s}]-$] \n" , 

Identifier_Font, result_pointer^>identifier) ; 
Indent(dump_stream, 3); 

fprintf (dump_stream, " (the u idealucase u in u which\n"); 
Indent(dump_stream 1 3); 
fprintf (dump_stream, "°/ s) :\n\n", resultjpointer^ string); 

attribute jpointer = areajpointer^attribute_head; 
vector jpointer = result jpointer^>idealjpoint_head\ 
Indent(dump_stream, 3); 
fprintf ' (dump_stream, "\\begin{description}\n\n"); 

/* while there are still attributes ... */ 

while (attributejpointer =/= NULL) { 

/* write the strings corresponding to each attribute value for the ideal 
point */ 

attribute_string = vector jpointer^* attribute jvalue = YES ? 

attributejpointer^yes : vectorjpointer^attributejvalue = NO ? 
attribute jpointer '—>no : attribute jpointer '—^unknown; 
Indent(dump_stream, 4) ; 
fprintf (dump_stream, "\\item[\\rm$A_{°/ u]-$ :] \n", 

attribute jpointer ^number) ; 
if (attribute _string = NULL) { 
sprintf (message, 

"A%u u in u ideal u point u %s u in u %s u area u has u a u value u " 
"f or u which u there u is u no u string" , 
attribute_pointer—>number, resultjpointer—>-identifier, 
areajpointer^fidentifier) ; 
warning (log _stream, message); 
Indent(dump_stream, 5); 
fprintf (dump jstream, "°/ s\n", NulLString); 
} else 

Write (dump _stream, attribute _string, " .", 5, No_Hang)\ 
fprintf (dump_stream, "\n"); 

vector jpointer = vector •jpointer— ynext; 
attributejpointer = attribute jpointer '^next; 

} 

Indent(dump_stream 1 3); 

fprintf (dump_stream, "\\end{description}\n\n"); 

} 

Indent(dump_stream, 1); 

fprintf (dump_stream, "\\end{description}\n\n"); 

} 

resultjpointer = resultjpointer^-next; 

} 
} 



dumper. c 115 



extern void 

Dump_Speciftcation( 

file dump_stream, 
file log_stream, 

case_law_specification casejaw, 
boolean inputablejatex, 
boolean verbose) 

/* Writes to dump_stream a formatted version of the specification casejaw. Writes IATgX 
code that can be included in another I^TgX document (i.e. not stand-alone code), if 
inputablejatex is TRUE. Summarizes cases in full, and writes opening and closing strings 
in full, if verbose is TRUE. */ 

{ 

area * areajpointer; 

fprintf (dump_stream, "°/o /o U Dump u f ile\n\n" ) ; 
Write_LaTeX_Header(dump_stream, inputablejatex); 

if (case Jaw. court Jiead ^ NULL) 

write Jiierarchyjable(dump_stream, case Jaw. court Jiead); 

/* for every area ... */ 

for (areajpointer = case Jaw. area Jiead; areajpointer ^ NULL] 
areajpointer = areajpointer— >next) { 

fprintf (dump_stream, "°/ s{y»s u area}\n.\n", Heading, 

areajpointer— ^identifier) ; 
Write_Matrix(dump_stream, areajpointer, NULL, case Jaw. court Jiead, FALSE, 0); 
write_opening_and_closing(dump_stream, areajpointer, verbose); 
writejresultjist(dump_stream, areajpointer— >resuttjiead) ; 
write_attributejist(dump_stream, areajpointer— ^attribute Jiead); 
write_casejist(dump_stream, log_stream, areajpointer, verbose); 

} 

Write_LaTeX_Trailer(dump_stream, inputablejatex); 




The Checker module 



checker .h 

/* This is the header file for the Checker module. It is also included by the Cases module. */ 
/* external function */ 

extern void 

Check _for_Attribute_Dependence( 
file probabilities _stream, 
file log_stream, 

case_law_speciftcation casejaw, 
boolean inputablejatex); 



checker. c 

/* This is the implementation file for the Checker module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include " shyster. h" 
^include " cases. h" 
^include " checker. h" 

static void 

error _ exit{ 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Checker", message); 

} 
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static void 

warning ( 

file stream, 

const string message) 

{ 

Write_Warning_Message(stream, "Checker", message, Top_Level); 

} 

static floatingpoint 
factorial^ 

cardinal number) 

/* Returns number] */ 

{ 

if (number = 0) 
return 1.0; 
else 

return (floating-point) number x factorial (number — 1); 
} 

static boolean 
calculate_probabilities( 

attribute * attribute-pointer _X, 

attribute * attribute_pointer_ Y, 

boolean * equivalencejunction, 

boolean *inverse_function, 

floating-point *probability_that_or_fewer, 

floating-point *probability_that_or_more) 

/* Calculates the probabilities for the two attributes pointed to by attribute -pointer —X and 
attribute -pointer _Y, and sets *probability_that_or_fewer and *probability_that_or_more appro- 
priately. Sets * equivalencejunction to TRUE, if there is an equivalence function mapping 
attribute X to attribute Y. Sets *inverseJunction to TRUE, if there is an inverse function 
mapping attribute X to attribute Y. Returns FALSE, if there are no known pairs. */ 

{ 

matrix_element * matrix-pointer _X, 

^■matrix-pointer _ Y ; 
cardinal yes_count_X = 0, 

yes_count_Y = 0, 

yes_yes_count = 0, 

totaLcount = 0, 

count; 
floating-point multiplier, 

probability; 

/* assume that there is both an equivalence function and an inverse function */ 

* equivalencejunction = TRUE; 
*inverseJunction = TRUE; 



matrix-pointer _Y = attribute -pointer '_Y^>matrix_head; 
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/* for every attribute value for attribute X . . . */ 

for (matrix_pointer_X = attribute_pointer_X^>-matrix_head; matrix_pointer_X =/= NULL; 
matrix_pointer_X = matrix_pointer_X^attribute_next) 
if (matrix_pointer_Y =/= NULL) { 

if ((matrix_pointer_X—>attribute_value =/= UNKNOWN) A 

(matrix_pointer_Y—>attribute_value =/= UNKNOWN)) { 

/* both attribute values for this case are known, so count the YESs */ 

if (matrix_pointer_X—>attribute_value = YES) { 
yes_count_X++; 

if (matrix_pointer_Y—>attribute_value = YES) 
yes_yes_count++ ; 

} 

if (matrix_pointer_Y—>attribute_value = YES) 

yes_count_Y ++; 
total_count++; 

if (matrix_pointer_X^attribute_value = matrix_pointer_Y^attribute_value) 

/* the attribute values are the same */ 

*inverse_function = FALSE] 
else 

/* the attribute values are the different */ 

* equivalence_function = FALSE; 
} 
/* move to the next attribute value for attribute Y */ 

matrix_pointer_Y = matrix_pointer_Y^attribute_next; 

} 

if (total_count = 0) 

/* there are no known pairs */ 
return FALSE; 
else { 

/* calculate the probability P(n) of there being exactly n yes/yes pairs: 

(y\(N-y\ 
\n) \x— 71/ 



P(n) = 



(N\ 



where n is yes_yes_count (the number of yes/yes pairs), N is total_count (the number 
of known pairs), x is yes_count_X (the number of YESs in attribute X), and y is 
yes_count_Y (the number of YESs in attribute Y) */ 

if (yes_count_X + yes_count_Y > total_count) { 

/* the first non-zero probability is P(x + y — N) = N[ (x+ > '-N)\ */ 

count = yes_count_X + yes_count_Y — total_count; 

probability = (factorial(yes_count_X) x factorial(yes_count_Y)) / 

(factorial(totaLcount) x 

factorial(yes_count_X + yes_count_Y — totaLcount)); 
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} else { 

/* the first non-zero probability is -P(O) = j\n n^_ x _ V{ */ 

count = 0; 

probability = (factorial(total_count — yes_count_X) x 

factorial (totaLcount — yes_count_Y)) / 

(factorial(totaLcount) x 

factorial(total_count — yes_count_X — yes_count_Y)); 

} 

* probability _that_or ■_] 'ewer = probability] 

/* successively multiply the probability by p ( t) = { i+ i)(N x-y+i+i) */ 

while (count < yes_yes_count) { 

multiplier = (floating jpoint) ((count — yes_count_X) x (count — yes_count_Y)) / 

(floating-point) ((count + 1) x 

(totaLcount — yes_count_X — yes_count_Y + count + 1)); 
probability x= multiplier; 

/* the probability of i yes/yes pairs or fewer is P(n < i) = ~^2 n=0 P(n) */ 

*probability_that_or_fewer += probability; 
count++; 
} 

/* the probability of i yes/yes pairs or greater is P(n > i) = 1 — ~^2 n=0 P(n) * / 

*probability_that_or_more = 1.0 — (*probability_that_or_fewer — probability); 
return TRUE; 
} 
} 

static void 

write jprobabilitiesjnatrix ( 

file probabilities _stream, 
file log_stream, 
area * areajpointer) 

/* Calculates the probabilities for the area pointed to by areajpointer, and writes a matrix of 
probabilities. */ 



{ 



attribute * attribute _pointer_X, 

* attribute_pointer_ Y ; 
probability _element *probability_pointer; 
boolean equivalence_function, 

inverse Junction; 
cardinal count; 
char message[Max_Error_Message_Length] ; 

if (probabilities_stream =/= NULL) { 

fprintf (probabilities_stream, "y»s{ /oS u area}\n\n" , 
Heading, areajpointer^*identifier) ; 
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if (area jpointer ^number _of_attributes < 2) 
return; 

Indent (probabilities_stream, 1) ; 

fprintf (probabilities_stream, "\\begin{small}\n"); 

Indent (probabilities_stream, 2) ; 

fprintf (probabilities_stream, "\\def \\arraystretch{0}-\n"); 

Indent(probabilities_stream, 2) ; 

fprintf (probabilities_stream, 

"\\begin{tabularH*{%uH I c} I QOp{\\doublerulesep}@0 I c I }" 

ll \\cline{l-y„u}\n", 

area_pointer—>number_of_attributes — 1, 

area_pointer^>number_of_attributes — 1); 
Indent (probabilities _stream, 3) ; 

/* write the column headings */ 

for (count = 2; count < area_pointer^number_of_attributes; count++) 

fprintf (probabilities_stream, "\\smash{\\raisebox{%s}{$A_{%u}$]-}&", 
Raise_Height, count) ; 

fprintf (probabilities_stream, 

"\\multicolumn{2}{c}{\\raisebox{\\ht\\strutbox}{\\strut}}" 

"\\\\\\cline{l-y»u}\n", area_pointer^>number_of_attributes — 1); 
Indent (probabilities_stream, 3) ; 
fprintf (probabilities_stream, 

"\\multicolumii{y„u}{c}{\\rule{Omin}{\\doublerulesep}}\\\\" 

ll \\cline{l-%u}\\cline{ /„u-°/„u}\ii", 

area_pointer—>number_of_attributes + 1, 

area_pointer^>number_of_attributes — 1, 

area_pointer—>number_of_attributes + 1, 

area_pointer^>number_of_attributes + 1); 

} 

/* for every attribute X . . . */ 

for (attributejpointerJX = area_pointer^attribute_head; 

(attribute _pointer_X =/= NULL) A (attribute_pointer_X^>next ^ NULL)] 
attribute_pointer_X = attribute_pointer_X—>next) { 

if (probabilities_stream ^ NULL) { 
Indent(probabilities_stream, 3) ; 
if (attribute_pointer_X ^number > 1) 

fprintf (probabilities_stream, "\\multicolmnri{y o u]-{c I }{}&" , 
attribute_pointer_X—>number — 1); 
} 
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/* for every attribute Y (i.e. every attribute after attribute X) . . . */ 

for (attribute_pointer_Y = attribute_pointer_X^>next; attribute _pointer_Y =/= NULL; 
attribute _pointer_Y = attribute_pointer_Y—>next) { 

if (attribute_pointer_X—>probability_head = NULL) { 

/* allocate memory for this pair of probabilities (the first in the list) */ 

if ((attribute_pointer_X^probability_head = 

(probability _element *) malloc(sizeof(probability_element))) = 
NULL) 
e rro r_ exit( log_stream, 

"mallocuf ailed u during u probability u matrix u building"); 
probability ^pointer = attribute_pointer_X—>probability_head; 

} else { 

/* go to the end of the list of probabilities */ 

for (probability ..pointer = attribute_pointer_X—>probability_head; 
probability _pointer^>next ^ NULL] 
probability .pointer = probability_pointer—>-next); 

/* allocate memory for this pair of probabilities */ 

if ((probability '_pointer—*next = 

(probability _element *) malloc(sizeof(probability_element))) = 
NULL) 
e rro r_ exit( log_stream, 

"mallocuf ailed u during u probability u matriXubuilding"); 
probability [ _pointer = probability_pointer^>next; 

} 

/* calculate the probabilities for attributes X and Y */ 

probability jpointer ^unknown = -icalculate_probabilities(attribute_pointer_X, 
attribute_pointer_ Y, & equivalence_function, kiinversejunction, 
Skprobability_pointer^fprobability_that_or_fewer, 
&£probability_pointer—>probability_that_or_more); 

if (probability _pointer •—^unknown) { 

/* there are no known pairs */ 

if (probabilities_stream =/= NULL) 

fprintf (probabilities_stream, "\\f ootnotesize?&"); 

} else { 

probability _pointer^ffunctional_dependence = 

equivalencejunction V inverse_function; 
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if (probabilities_stream =/= NULL) { 

/* write the first probability for this cell in the matrix (the probability of 
the actual number of yes/yes pairs or fewer) */ 

Write_Floating_Point(probabilities_stream, 

probability_pointer^probability_that_or_fewer, 
probability_pointer^>functional_dependence ? 
Functional_Dependence_Symbol ; 

probability_pointer^>probability_that_or_fewer < Threshold ? 
Stochastic_D ependence_Symbol ; Empty _String); 
fprintf (probabilities_stream, "&"); 
} 

/* issue warnings if necessary */ 

if (equivalence junction) { 

sprintf (message, 

"functionaludependenceu (equivalence) u " 

"between u A /oU u and u A /oU u in u °/oS u area", 

attribute_pointer_X—>number, attribute_pointer_ Y—>number, 

areajpointer^fidentifier) ; 
warning (log _stream, message); 
} else if (inversejunction) { 
sprintf (message, 

" functionaludependence u (inverse ) u " 

"betweenuA /oUuanduA /oUuinu°/oS u area", 

attribute_pointer_X—>number, attribute_pointer_ Y—>number, 

areajpointer^fidentifier) ; 
warning (log_stream, message); 
} else if (probability_pointer—>probability_that_or_fewer < Threshold V 
probability_pointer^>probability_that_or_more < Threshold) { 
sprintf (message, 

"evidence u of u stochastic u dependence u " 

"between u A /oUuanduA7oUuinu°/oSuarea", 

attribute_pointer_X—>number, attribute_pointer_ Y—>number, 

area_pointer—>identifier) ; 
warning (log _stream, message); 

} 
} 
probability_pointer^>next = NULL; 

} 

if (probabilities_stream =/= NULL) { 

fprintf (probabilities_stream, " &\\\\\n" ) ; 

Indent(probabilities_stream, 3) ; 

if (attribute_pointer_X—>number > 1) 

fprintf (probabilities_stream, "\\multicolumn{7 u]-{c I ]■{}&" , 
attribute _pointer_X ^number — 1); 
} 
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/* for every pair of probabilities for attribute X . . . */ 

for (probabilityjpointer = attribute_pointer_X^probabilityJiead; 

probability jpointer ^ NULL] probability _pointer = probability jpointer^next) 
if {probabilities _stream ^ NULL) 

/* write the second probability for this cell in the matrix (the probability of the 
actual number of yes/yes pairs or more) */ 

if (probabilityjpointer^funknown) 

fprintf (probabilities_stream, "\\f ootnotesize?&"); 
else { 

Write_Floating_Point(probabilities_stream, 

probability_pointer—>probabilityJhat_or_more, 
-iprobability_pointer—>functional_dependence A 
probability jpointer , —>probability_that_or_more < Threshold ? 
Stochastic _D ependence_Symbol : Empty _String); 
fprintf (probabilities_stream, "&"); 

} 

if (probabilities_stream =/= NULL) 

fprintf (probabilities_stream, "&\\smash{\\raisebox{°/ sH$A_{ /.u}$}}\\\\" 
"\\cline{%u-%u}\\cline{ /„u-7„u}\n" , Raise_Height, 
attribute_pointer_X—>number, attribute_pointer_X—>number, 
area_pointer^number_of_attributes — 1, 
area_pointer^number_of_attributes + 1, 
area_pointer^>number_of_attributes + 1); 

} 

if (probabilities_stream =/= NULL) { 

Indent(probabilities_stream, 2) ; 

fprintf (probabilities_stream, " \\end{tabular}\n" ) ; 

Indent(probabilities_stream, 1) ; 

fprintf (probabilities_stream, "\\end{small}\n\n"); 
} 



} 



extern void 

Check Jor_Attribute_Dependence{ 
file probabilities _stream, 
file log_stream, 

case_law_specification casejaw, 
boolean inputablejatex) 

/* Checks for evidence of dependence between the attributes in each area in the specification 
casejaw. Calculates the probabilities, and writes a matrix of probabilities for each area to 
probabilities _str earn (if it is not NULL). Writes IATjrjX code that can be included in another 
I^TgX document (i.e. not stand-alone code), if inputablejatex is TRUE. */ 

{ 

area * area .pointer; 

if (probabilities_stream =/= NULL) { 

fprintf (probabilities_stream, "y»°/, u Probabilities u f ile\n\n"); 

Write_LaTeX_Header(probabilities_stream, inputablejatex); 
} 
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/* for every area ... */ 

for {areajpointer = casejaw.areajiead; areajpointer ^ NULL] 
areajpointer = areajpointer^>next) 
write jprobabilitiesjmatrix(probabilities_stream, log_stream, areajpointer)] 

if (probabilities_stream =/= NULL) 

Write_LaTeX_Trailer(probabilities_stream, inputablejatex); 




The Scales module 



scales .h 

/* This is the header file for the Scales module. It is also included by the Cases, Adjuster 
and Odometer modules. */ 

/* external functions */ 

extern void 

Zero_Weight( 

weight_type *weight_pointer); 

extern void 

Write_Weights_Table( 

file weights_stream, 
area *area_pointer); 

extern void 

Weight_A ttributes ( 

file weights_stream, 
file log_stream, 

case_law_specification casejaw, 
boolean inputablejatex); 



scales . c 

/* This is the implementation file for the Scales module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include " shyster. h" 
^include " cases. h" 
^include " scales. h" 
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static void 

error_exit( 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Scales", message); 

} 

static void 

warning ( 

file stream, 

const string message) 

{ 

Write_Warning_Message(stream, "Scales" , message, Top_Level); 

} 

extern void 

Zero_Weight( 

weight_type ^-weight jpointer) 

/* Sets the weight pointed to by weightjpointer to zero. */ 

{ 

weight jpointer ^infinite = FALSE; 

weightjpointer—* finite = 0.0; 
} 

static boolean 
calculate_mean_and_centroids( 

file log_stream, 

result *result_head, 

attribute *attribute_pointer) 

/* Calculates the mean (and, for each result, centroid element) for the attribute pointed to by 
attribute jpointer. Returns TRUE, iff the attribute has known values. */ 



{ 



result *result_pointer; 
kase * case jpointer; 
matrix_element * matrix jpointer; 
centroid_element * centroid jpointer; 
floating jpoint sum, 

temp; 
cardinal count, 

totaLcount = 0; 

attribute_pointer—>mean = 0.0; 

matrixjpointer = attribute_pointer—>matrix_head; 

/* for every result ... */ 

for {resultjpointer = resultjiead; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) { 

sum = 0.0; 
count = 0; 
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/* sum the attribute values for this attribute for each case with this result */ 

for (casejpointer = result _pointer^>case_head; 

(casejpointer ^ NULL) A (matrixjpointer =/= NULL); 
casejpointer = casejpointer— >next) { 
if (Attribute_Value(matrixjpointer^attributejvalue,&£temp)) { 
sum += temp; 
count++; 

} 

matrixjpointer = matrixjpointer^attributejnext; 

} 

if (result_pointer^centroid_head = NULL) { 

/* allocate memory for this centroid element (the first in the list) */ 

if ((resultjpointer—>-centroid_head = 

(centroid _element *) malloc(sizeof(centroid_element))) = NULL) 
error _exit(log_stream, "malloc u f ailed u during u centroid u building"); 
centroidjpointer = result _pointer^rcentroid_head; 

} else { 

/* go to the end of the centroid */ 

for {centroidjpointer = result_pointer—>centroid_head; 
centroidjpointer— >next =/= NULL; 
centroidjpointer = centroid jpointer—^next); 

/* allocate memory for this centroid element */ 

if ((centroidjpointer^next = 

(centroid_element *) malloc(sizeof(centroid_element))) = NULL) 
error _exit(log_stream, "malloc u f aileduduringucentroidubuilding"); 
centroidjpointer = centroidjpointer^next; 
} 

if (^(centroidjpointer— ^unknown = count = 0)) 

centroidjpointer— rvalue = sum / (floating jpoint) count; 
centroidjpointer— mext = NULL; 

attributejpointer^mean += sum; 
totaLcount += count; 

} 

if (totaLcount = 0) 

/* the attribute has no known values */ 

return FALSE; 

else { 

attributejpointer^mean = attributejpointer^mean / (floating jpoint) totaLcount; 
return TRUE; 
} 
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static void 

calculate jweights( 

file log_stream, 
area * areajpointer) 

/* Calculates the weight of each attribute in the area pointed to by areajpointer. (The weight is 
the inverse of the variance of the attribute values. The variance <x 2 of the numerical values 
of an attribute i across n cases is —'Y^—xiAij ~ A-i) 2 , where Aij is the value of the ith 
attribute for the jth case, and Ai is the mean of all attribute values for the ith attribute. 
Because known attribute values are assigned numerical values of or 1, a 2 simplifies to 
Ai-Ai 2 .) */ 



{ 



attribute * attribute jpointer; 

cardinal count] 

floatingjpoint variance] 

char message[Max_Error_Message_Length] ; 

count = 1; 

/* for every attribute ... */ 

for (attribute jpointer = areajpointer^>attribute_head; attributejpointer ^ NULL] 
attributejpointer = attributejpointer^next) { 

variance = 0.0; 
Zero_Weight(&;attributejpointer—>weight); 

if (-^calculate _mean_and_centroids(log_stream, area_pointer—>result_head, 
attributejpointer)) { 

/* the attribute has no known values */ 

sprintf (message, "A°/oU u iri u /oS u area u has u no u weight", count, 

areajpointer— ^identifier) ; 
warning (log _stream, message); 

} else { 

/* the attribute has known values, so determine its weight */ 

variance = attributejpointer— >mean — 

(attributejpointer^nnean x attribute jpointer ■^mean); 

if (attributejpointer^fweight.infinite = I s_Zero (variance)) { 
sprint] (message, 

" AyBU u in u /oS u area u has u inf inite u weight" , count, 
areajpointer— ^identifier) ; 
warning (log_stream, message); 
ar ea jpointer ^infinite jweight = TRUE; 
} else 

attribute_pointer—>weight. finite = 1 / variance; 

} 

count++; 
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static void 

calculate jresult_weights( 
file log_stream, 
area * areajpointer) 

/* Calculates the result weight for each attribute in the area pointed to by areajpointer. (The 
result weight is the inverse of the variance of the attribute values for that result.) */ 



{ 



attribute * attribute jpointer; 
result * resultjpointer; 
centroid_element * centroid_pointer; 
cardinal count; 
floatingjpoint variance; 
weight_list_element ^weightsjpointer; 
boolean zero_result_weight = FALSE; 
char message [Max_Error_Message_Length] ; 

/* for every attribute ... */ 

for (attributejpointer = areajpointer— >attribute_head; attributejpointer ^ NULL; 
attributejpointer = attributejpointer^>next) 

/* for every result ... */ 

for (resultjpointer = areajpointer^resultjiead; resultjpointer ^ NULL; 
resultjpointer = result_pointer^>nexi) { 

/* find, in the centroid for this result, the mean for this attribute */ 

centroid_pointer = resultjpointer— >centroid_head; 
for (count = 1; count < attributejpointer— ^number; count++) 
centroid_pointer = centroidjpointer^>next; 

if (attributejpointer— >weights_head = NULL) { 

/* allocate memory for this result weight (the first in the list) */ 

if ((attributejpointer^>weights_head = 

(weight Jist_element *) ma/Zoc (sizeof (weight _list_element))) 
NULL) 
error_exit(log_stream, "malloc u f ailed u duringuweights u building" ) ; 
weightsjpointer = attribute_pointer^>weights_head; 

} else { 

/* allocate memory for this result weight */ 

if ((weights _pointer^>next = 

(weight_list_element *) malloc(sizeof(weight_list_element))) 
NULL) 
error_exit(log_stream, "malloc u f ailed u during u weights u building" ) ; 
weightsjpointer = weights •jpointer— rnext; 
} 

Zero_ Weight(lkweightsjpointer^>weight) ; 
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if (centroid_pointer^unknown A 

( attribute_pointer^weight. infinite V 

->Is_Zero(attribute_pointer—>weight. finite))) 

/* the result weight is zero, but the weight for the whole attribute is not zero, 
so ensure a warning is issued later (if the weight for the whole attribute is 
zero, a warning has already been issued) */ 

zero_result_weight = TRUE; 
else if (attributejpointer^fweight.infinite) 

/* this attribute has infinite weight, so make this result weight infinite too */ 

weights_pointer—>weight.inftnite = TRUE; 
else { 

/* the attribute has known values, so determine the result weight */ 

variance = centroidjpointer— rvalue — 

(centroid_pointer— rvalue x centroidjpointer— rvalue); 

if (-i(weights_pointer—>weight. infinite = Is_Zero(variance))) 
weights_pointer—>weight. finite = 1 / variance; 

} 

weights_pointer—>next = NULL; 

} 
if (zero_result_weight) { 
sprintf (message, 

"one u or u niore u attributes u iri u 7oS u area u has u auzero u result u weight" , 

areajpointer^*identifier) ; 
warning (log_stream, message); 

} 
} 

extern void 

Wmte_Weights_Table( 

file weights_stream, 
area * areajpointer) 

/* Writes a table of weights for the area pointed to by areajpointer. */ 

{ 

result * result jpointer; 

attribute * attribute jpointer; 

centroid_element * centroidjpointer; 

cardinal centroid_count; 

weight_list_element ^weights jpointer; 
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Indent(weights_stream, 1); 

fprintf (weights_stream, " \\begiir[small}\n" ) ; 

Indent(weights_stream, 2); 

fprintf (weights_stream, 

"\\begin{tabularH I c I *{ /.u}{ca{\\hspace{ , /.s}}ca{\\hspace{ , /.s}}r I >}" 

"\\hline\n", area_pointer^>number_ofjresults + 1, 

Column_Separation, Column_Separation) ; 
Indent(weights_stream, 3); 
fprintf (weights_stream, " & " ) ; 

/* write the column headings */ 

for (resultjpointer = area_pointer—>result_head; result_pointer ^ NULL] 
result_pointer = result_pointer^next) 
fprintf (weights_stream, "\\multicoluinir[3}{c I }{ /oS u °/os}&" , 
Identifier '_Font, result_pointer—>-identifier) ; 
fprintf (weights_stream, " &&\\\\\n" ) ; 
Indent(weights_stream, 3); 
fprintf (weights_stream, "\\smash{\\raisebox{°/ s}{\\it u Attr . }}&" , 

Raise_Heighi)\ 
for (resultjpointer = area_pointer—>result_head; resultjpointer ^ NULL] 
resultjpointer = result_pointer^next) 
fprintj : (weights jstream, 

"$\\mu$&$\\sigmaA2$&\\multicolumn{lHc I H$w$}&"); 
fprintf (w eights jstream, 

"\\smash{\\raisebox{%sH$\\mu$}}&" 
M \\smash{\\raisebox{7„s}{$\\sigmaA2$}}&" 
"Wmulticolumn-dHc I }{\\smash{\\raisebox{7„s}{$w$}}}" 
"\\\\\\hline\\hline", Raise_Height, Raise_Height, Raise_Height)\ 

/* for every attribute ... */ 

for (attributejpointer = area_pointer^>attribute_head; attributejpointer ^ NULL] 
attributejpointer = attribute_pointer^>next) { 

weights jpointer = attribute _pointer^fW eights jhead] 

fprintf (weights_stream, " \n" ) ; 

Indent(weights_stream, 3); 

fprintf (weights_stream, "$A_{°/,u}$&" , attribute_pointer^>number); 

/* for every result ... */ 

for (resultjpointer = area_pointer—>result_head; resultjpointer ^ NULL] 
resultjpointer = result_pointer—>-next) { 

/* find, in the centroid for this result, the mean for this attribute */ 

centroid jpointer = resultjpointer^centroid_head\ 

for (centroid _count = 1; centroid_count < attribute_pointer^>number; 
centroid_count++) 
centroidjpointer = centroidjpointer^>next] 
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/* write the mean /i and the variance a 2 for this result and attribute */ 

if (centroid_pointer—mnknown) 

fprintf (weights_stream, "\\f ootnotesize?&\\f ootnotesize?&"); 
else { 

Write_Floating_Point(weights_stream, centroidjpointer^-value, Empty _String)\ 

fprintf (weights_stream, "&" ) ; 

Write_Floating_Point(weights_stream, centroidjpointer— rvalue — 

(centroid_pointer— rvalue x centroidjpointer— rvalue) , Empty _String); 

fprintf (weights_stream, "&" ) ; 

} 

/* write the result weight for this attribute */ 

if (weights jpointer^weight.infinite) 

fprintf (weights_stream, "WmulticolumrrClMc I }{$\\infty$}"); 
else if (Is_Zero(weightsjpointer^>weight.finite)) 

fprintf (weights_stream, "WmulticolumrrClMc I M — }"); 
else 

Write_Floating_Point(weights_stream, weights jpointer^>weight.finite 1 
Empty _String) ; 
fprintf (weights_stream, " &" ) ; 

weights jpointer = weights_pointer—>next; 
} 

J '* write the mean [i and the variance o 2 for this attribute */ 

Write_Floating_Point(weights_stream, attributejpointer^-mean, Empty_String) ; 
fprintf (weights_stream, " & " ) ; 

Write_Floating_Point(weights_stream, attribute jpointer— >mean — 

(attribute jpointer •—ymean x attribute jpointer— *mean) , Empty jString); 
fprintf (weights_stream, " & " ) ; 

/* write the weight w for this attribute */ 

if (attribute_pointer—>weight.infinite) 

fprintf (weights_stream, "\\multicolumn-f.l}{c I }{$\\inf ty$}-"); 
else if (Is_Zero(attributejpointer—>weight.finite)) 

fprintf (weights_stream, "\\multicolumn{l}{c I }{ — }"); 
else 

Write_Floating_Point(weights_stream, attribute jpointer^weight.finite, 
Emp ty_ Stri ng ) ; 
fprintf (weights_stream, "WW"); 

} 

fprintf (weights_stream, " \\hl ine\n" ) ; 

Indent(weights_stream, 2); 

fprintf (weights_stream, " \\end{tabular}\n" ) ; 

Indent(weights_stream, 1); 

fprintf (weights_stream, " \\end{small}\n\n" ) ; 
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extern void 

Weight_Attributes( 

file weights_stream, 
file log_stream, 

case_law_specification casejaw, 
boolean inputablejatex) 

/* Calculates the weights for each area in the specification casejaw, and writes a table of 
weights for each area to weights_stream (if it is not NULL). Writes IATjrjX code that can 
be included in another I^TgX document (i.e. not stand-alone code), if inputablejatex is 
TRUE. */ 



{ 



area * areajpointer; 

if (weights_stream ^ NULL) { 

fprintf (weights_stream, "°/ 7ouWeights u f ile\n\n"); 

Write_LaTeX_Header(weights_stream 1 inputablejatex) ; 
} 
/* for every area ... */ 

for (areajpointer = case Jaw. area Jiead; areajpointer ^ NULL] 
areajpointer = areajpointer^next) { 

if (weights _stream ^ NULL) 

fprintf ' (weights _stream, "%s{7 s u area}\n\n", Reading, 
areajpointer ^identifier) ; 

areajpointer— >inftnitejweight = FALSE; 
calculate_weights(log_stream, areajpointer) ; 
calculate _result_weights(log_stream, areajpointer) ; 

if (weights _stream ^ NULL) 

Write_ Weights_ Table(weights_stream, areajpointer) ; 

} 

if (weights_stream ^ NULL) 

Write_LaTeX_Trailer(weights_stream, inputablejatex); 




The Adjuster module 



adjuster .h 



/* This is the header file for the Adjuster module. It is also included by the Cases 
module. */ 

/* external function */ 

extern void 

Adjust_A ttri butes( 

file log_stream, 
area *area_pointer, 
string weights_filename, 
cardinal level, 
boolean inputablejatex); 



adjuster. c 



/* This is the implementation file for the Adjuster module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include " shyster. h" 
^include " cases. h" 
^include "adjuster. h" 
^include " scales. h" 
^include "consultant .h" 

static void 

error_exit( 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Adjuster", message); 

} 
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static void 

write_weight( 

file stream, 
weight_type weight) 

/* Writes the value of weight in words. */ 

{ 

if (weight.infinite) { 

fprintf (stream, "inf inite u weight"); 
} else if (Is_Zero(weight.finite)) 

fprintf (stream, "no u weight"); 
else { 

fprintf (stream, "a u weight u of u "); 

Write_Floating_Point(stream, weight.finite, Empty _String); 
} 
} 

static void 

adjust_weight( 

file log_stream, 

area * area_pointer, 

cardinal attribute _number, 

cardinal level, 

boolean * adjustmentjnade) 

/* Allows the legal expert to set the weight of attribute attributejnumber in the area pointed 
to by areajpointer. Sets *adjustment_made to TRUE, if an adjustment is made. */ 



{ 



cardinal count = 1; 
attribute * attribute jpointer; 
char dummy; 
int option; 

weight_type old_weight; 
floating-point newjweight; 

I '* find attribute attribute_number */ 

for (attribute jpointer = area_pointer^>attribute_head; 

(count++ < attribute _number) A (attributejpointer ^ NULL); 
attributejpointer = attribute_pointer^>next); 

/* tell the legal expert about the attribute's current weight */ 

fprintf (stdout, "A°/ u u has u ", attribute_number); 
write_weight(stdout, attribute_pointer—>weight) ; 
fprintf (stdout, " An"); 

/* make a copy of the weight */ 

old_weight.infinite = attribute_pointer^weight.inftnite; 
old_weight = attribute_pointer—>weight; 

option = Get_Option("In£ inite, u Zero, u or u Other", "IZO"); 



} 



adjuster . c 139 



/* adjust the attribute's weight as requested */ 

switch (option) { 
case ' I ' : 

attribute_pointer^weight.infinite = TRUE; 

break; 
case ' Z ' : 

Zero_Weight(lkattribute_pointer^fweight); 

break; 
case ' D ' : 

fprintf (stdout, "New u weight u f or u A / u: u ", attribute_number); 

if (fscanf (stdin, "°/ f°/oC" ,&inew_weight,&,dummy) = EOF) 

error _exit(log_stream, "f scanf u input u f ailed u f or u f loating_point"); 

attribute_pointer—>weight.infinite = FALSE; 

attribute_pointer^weight.finite = newjweight; 

break; 
case Quit_Character: 

return; 

} 

* adjustment jmade = TRUE; 

/* report on the adjustment */ 

Indent(log_stream, level); 

fprintf (log _str earn, "A7oU, u which u had u ", attribute_number); 

write_weight(log_stream, oldjweight) ; 

fprintf (log_stream, " , u now u has u "); 

writejweight(log_stream, attribute_pointer^weight) ; 

fprintf (log_stream, " . \n"); 



static void 

adjust_result_weight( 
file log_stream, 
area * area_pointer, 
cardinal attribute _number, 
cardinal level, 
boolean * adjustment jmade) 

/* Allows the legal expert to set any of the result weights for attribute attribute_number in 
the area pointed to by areajpointer. Sets * adjustment jmade to TRUE, if an adjustment is 
made. */ 



{ 



cardinal count = 1, 

result_number; 
attribute * attribute jpointer; 
char dummy; 
int option; 

weight_type oldjweight; 
floating jpoint newjweight; 
weight_list_element ^weights jpointer; 
result * result jpointer; 
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/* find attribute attribute_number */ 

for (attribute jpointer = area_pointer—>attribute_head; 

(count++ < attribute jnumber) A (attributejpointer =/= NULL); 
attribute_pointer = attribute jpointer^-next); 

/* tell the legal expert about the attribute's current result weights */ 

fprintf (stdout, "A°/oUuhas u the u f ollowing u result u weights: ", attribute jnumber); 
weightsjpointer = attributejpointer^weightsjiead; 
result jpointer = areajpointer—>result_head; 
for (count = 1; count < area_pointer—>number_of_results; 
count++) { 

if (count ^ 1) 

fprintf (stdout, " ; "); 

fprintf (stdout, "\n"); 

Indent(stdout, 1); 

fprintf (stdout, "°/»u: u y»s u result u has u ", count, resultjpointer— ^identifier); 

write_weight(stdout, weights jpointer •—^weight) ; 

weightsjpointer = weights jpointer^next; 

resultjpointer = resultjpointer^next; 

} 

fprintf (stdout, " An"); 

/* prompt the legal expert for a result number */ 

do { 

fprintf (stdout, "Result u number u (l-°/ u) : u ", 

areajpointer—>number_of_results); 
if (fscanf (stdin, "°/ u°/ c" , &z resultjnumber, & dummy) = EOF) 

error _exit (log _stream, "fscanf u input u f ailed u f or u cardinal"); 
} while (resultjnumber > area_pointer—>number_ofjresults); 

if (resultjnumber ^ 0) { 

/* find the result weight */ 

weightsjpointer = attribute jpointer— >weights_head; 

resultjpointer = area_pointer^>result_head; 

for (count = 1; count < resultjnumber; count++) { 

weightsjpointer = weights_pointer—>next; 

resultjpointer = resultjpointer^next; 
} 

/* make a copy of the result weight */ 

oldjweight.infinite = weightsjpointer^weight.infinite; 
oldjweight = weightsjpointer— ^weight; 

option = Get_Option(" Inf inite, u Zero, u or u Other", "IZO"); 
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/* adjust the result weight as requested */ 

switch (option) { 
case ' I ' : 

weightsjpointer^weight.infinite = TRUE; 

break; 
case ' Z ' : 

Zero_ Weight(lkweights_pointer^>weight) ; 

break; 
case ' ' : 

fprintf (stdout, "New u weight u f or u A%u u f or u %s u result : u " , 
attributejnumber, result_pointer—>identifier) ; 

if (fscanf (stdin, "%f / c" , &inew_weight, h.dummy) = EOF) 

error_exit(log_stream, "f scanf u input u f ailed u f or u f loating_point"); 

weights_pointer—>weight.infinite = FALSE; 

weights_pointer—>weight.finite = newjweight; 

break; 
case Quit_Character; 

return; 

} 

* adjustmentjmade = TRUE; 

/* report on the adjustment */ 

Indent(log_stream, level); 

fprintf (log _stream, "A%u, u which u had u ", attribute_number); 

write_weight(log_stream 1 oldjweight) ; 

fprintf (log_stream, " u f or u °/oS u result , u now u has u " , result_pointer—>-identifier); 

write_weight(log_stream, weights_pointer^>weight) ; 

fprintf (log_stream, " u f or u that u result . \n"); 



} 



extern void 

Adjust_A ttri butes( 

file log_stream, 
area * area_pointer, 
string weights filename, 
cardinal level, 
boolean inputablejatex) 

/* Allows the legal expert to set any of the weights (including result weights) in the area 
pointed to by areajpointer. Prompts the expert by writing to stdout; reads the expert's 
response from stdin. Writes a table of weights to the adjusted weights file weights_filename 
(if it is not NULL). Writes IATjjX code that can be included in another BTjjX document 
(i.e. not stand-alone code), if inputablejatex is TRUE. * / 

{ 

file weights_stream = NULL; 

char dummy; 

static char filename[Max_Filename_Length}; 

char message [Max_Error_Message_Length] ; 

cardinal attribute_number; 

int option; 

boolean adjustmentjmade = FALSE; 
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Indent(log_stream, level); 

fprintf ' (log_stream, " Enter ing u Adjuster u module.\n\n"); 

fprintf (stdout, "Adjust u weights u in u /oS u area u . . An", areajpointer^identifier); 

do { 

/* prompt the legal expert for an attribute number */ 

do { 

fprintf (stdout, "Attribute u number u (l- / u) : u ", 

area_pointer^>number_of_attributes); 
if (fscanf ' (stdin, "°/,u°/ c" , k, attribute jnumber, Skdummy) = EOF) 

error _exit(log_stream, "fscanf u input u failed u for u cardinal"); 
} while (attributejnumber > area_pointer—>number_of_attributes); 

if (attribute_number =/= 0) { 

option = GetOp£ion("Weightuor u Result u weight", "WR"); 

/* adjust the attribute's weight, or one of its result weights, as requested */ 

switch (option) { 
case ' W ' : 

adjust_weight(log_stream, areajpointer, attributejnumber, 
level + l,&z adjustment jmade); 

break; 
case 'R': 

adjust_result_weight(log_stream, areajpointer, attribute .number, 
level + 1, Ik adjustment jmade); 

break; 
case Quit_Character: 

attribute_number = 0; 

break; 

} 

} . 
} while (attribute jnumber ^ 0); 

if (adjustmentjmade) { 

fprintf (log jstream, "\n"); 

if (weights filename ^ NULL) { 

/* a weights filename was specified, so open the adjusted weights file */ 

sprintf (filename, " / s- / sy»s", weights filename, areajpointer^-identifier, 

La TeX_File_Extension) ; 
if ((weights_stream = fopen(filename, "w")) = NULL) { 

sprintf (message, " can ' t u open u adj usted u weight s u f ile u \ " °/,s\ " " , filename) ; 

error _exit(log_stream, message); 

} 

Indent(log_stream, level + 1); 

fprintf (log _stream, "Writing u adjusted u weights u to u \"y»s\" .\n\n" , filename); 

} 
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if (weights_stream =/= NULL) { 

/* write the table of adjusted weights */ 

fprintf (weights_stream, "y»°/ uAdjusted u weights u f ile\n\n"); 

Write_LaTeX_Header(weights_stream, inputablejatex) ; 
fprintf (weights_stream, "y»s{y o s u area}\n\n", Heading, area_pointer—>identifier); 

Write_ Weights_ Table(weights_stream, area_pointer) ; 

Write_LaTeX_ Trailer (weights_stream, inputablejatex); 

} 

if {weights filename ^ NULL) 

/* a weights filename was specified, so close the adjusted weights file */ 

if (fclose(weights_stream) = EOF) { 

sprintf (message, " can ' t u close u ad j usted u weight s u f ile u \ " °/ s\ " " , filename) ; 
error _exit[log_stream, message); 

} 
} else { 

Indent(log_stream, level + 1); 

fprintf (log _stream, "No u adjustments u made . \n\n"); 

} 

Indent(log_stream, level); 

fprintf (log_stream, "Leaving u Adjuster u module . \n\n"); 




The Consultant module 



consultant .h 

/* This is the header file for the CONSULTANT module. It is also included by the CASES and 
Adjuster modules. */ 

/* external functions */ 

extern int 

Get_Option( 

string question, 
string options); 

extern vector -.element * 
Get_Facts( 

file log_stream, 

case_law_specification casejaw, 

area * areajpointer, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distances .filename, 

string weights .filename, 

string reportjilename); 
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consultant . c 

/* This is the implementation file for the CONSULTANT module. */ 

^include (stdio.h) 
^include (stdlib.h) 
^include (string. h) 
^include " shyster. h" 
^include " cases. h" 
^include "consultant .h" 

static void 

error _exit( 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Consultant", message); 

} 

extern int 

Get_ Option ( 

string question, 
string options) 

/* Asks the user the question, and reads the user's response until a valid option — one of 
the characters in the options string, or Q (quit) — is chosen. Treats lower-case alphabetic 
characters entered by the user as if they were upper-case. Treats the end of the file as a Q. 
Returns the chosen character. */ 



{ 



int ch, 

temp_ch; 
cardinal count; 

fprintf (stdout, "°/ s u (%sQ)? u ", question, options); 

for(;;){ 

if ((ch = getc(stdin)) = EOF) 
return Quit_Character; 

/* convert ch to upper-case if necessary */ 

if ((ch > Little_A_Character) A (ch < Little_Z_Character)) 
ch = Big_A_Character + ch — Little_A_Character; 

if (ch = Quit_Character) { 

/* skip over the rest of the line of input */ 

for (temp_ch = getc(stdin); 

(temp_ch =/= Carriage_Return_Character) A (temp_ch =/= EOF); 
temp_ch = getc(stdin)); 

return Quit_Character; 
} 
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if (ch =/= C'arriage_Return_Character) { 

/* skip over the rest of the line of input */ 

for (temp_ch = getc(stdin); 

(temp_ch =/= Carriage_Return_Character) A (temp_ch =/= EOF); 
temp_ch = getc(stdin)); 

if (temp.ch = EOF) 

return Quit_Character; 

} 

if (strchr (options, ch) =/= NULL) 

/* the user has entered a valid option */ 

return ch; 

/* the user has entered an invalid option */ 

fprintf (stdout, "Please u enter u '7oC' ", options[0]); 

for (count = 1; options[count] =/= NulLCharacter; count += sizeof (char)) 

fprintf (stdout, " , u '7,c' ", options[couni\); 
fprintf (stdout, " u or u "/,c' .\n7 s? u ", Quit_Character, question); 
} 
} 

static boolean 
get_locaLfact( 

file log_stream, 

attribute *attribute_pointer, 

vector ^element *vector_pointer, 

boolean echo, 

cardinal level) 

/* Interrogates the user as to the value, in the instant case, of the local attribute pointed to by 
attribute jpointer. Puts the attribute value in the vector element pointed to by vector jpointer. 
Returns FALSE, if the user chooses to quit. */ 



{ 



char options[Max_Attribute_Options + 1], 

option; 
cardinal count = 0; 

/* determine which values are valid for this attribute */ 

if (attribute_pointer^yes ^ NULL) { 
options[count] = Yes_Character; 
count += sizeof (char); 

} 

if (attribute_pointer—>no =/= NULL) { 

options[count] = No_Character; 

count += sizeof (char); 
} 
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if (attribute_pointer^unknown ^ NULL) { 
options[couni\ = Unknown_Character; 
count += sizeof (char); 

} 

if (attribute_pointer^details.local.help =/= NULL) { 

options[count] = Help_Character; 

count += sizeof (char); 

} 

options[count] = NulLCharacter; 

count += sizeof (char); 

/* prompt the user for one of the valid attribute values */ 

do { 

if ((option = Get_Option(attribute_pointer^details.local.question, options)) 
Quit_Character) { 
Indent(log_stream, level); 

fprintf (log_stream, "Quitting u consultation. \n\n"); 
return FALSE; 

} 

if (option = Help_Character) 

fprintf (stdout, "°/ s\n", attribute_pointer—>details.local.help); 

} while (option = Help_Character); 

/* set this attribute's value to that chosen */ 

switch (option) { 

case Yes_C'haracter: 

vector_pointer^>attribute_value = YES; 
if (echo) 

fprintf (stdout, " Yes : u 7 s . \n" , attribute_pointer—>yes) ; 
break; 
case No_Character: 

vector •_pointer^>attribute_value = NO; 
if (echo) 

fprintf (stdout, "No : u %s . \n" , attribute_pointer—>no); 
break; 
case Unknown_Character: 

vector_pointer^>attribute_value = UNKNOWN; 
if (echo) 

fprintf (stdout, "Unknown : u °/ s . \n" , attribute_pointer—>unknown) ; 
break; 

} 

return TRUE; 

} 
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static boolean 
get_externaLfact{ 

file log_stream, 

case_law_specification casejaw, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distances_filename, 

string weights jilename, 

string report_filename, 

attribute * attribute jpointer, 

cardinal attribute _number, 

vector _element ^-vector jpointer) 

/* Resolves the value, in the instant case, of the external attribute pointed to by at- 
tribute jpointer (attribute attribute jnumber) by reference to the relevant area. Puts the 
attribute value in the vector element pointed to by vector jpointer. Returns FALSE, if the 
user chooses to quit. */ 

{ 

string nearest_result_identifier; 
boolean found = FALSE; 

identifier_list_element * identifier _list_pointer; 
char message [Max_Error_Message_Length] ; 

Indent(log_stream, level); 

fprintf (log_stream, "A7 u u is u external . \n\n" , attribute jnumber); 

/* determine the identifier of the "likely result" of the instant case in the relevant area 
(attribute_pointer^> details, external, area identifier) */ 

nearest_result_identifier = Case_Law{log_stream, casejaw, 

attribute jpointer ^details, external, areajdentifier, adjust, echo, 
inputablejatex, verbose, hypotheticaLreports, hypotheticaLchanges, 
level + 1, distances_filename, weights_filename, reporLfilename); 

if {nearestjresultjdentifier = NULL) 

/* quit */ 

return FALSE; 

/* search for the result identifier in the list of external result identifiers for YES for this 
attribute */ 

identifier_list jpointer = attribute jpointer^details.external.yes_identifier_head; 

vector jpointer^-attributejvalue = YES; 

while {{identifier -Jist jpointer =/= NULL) A -ifound) { 

found = -istrcmp{identifier_listjpointer^identifier, nearestjresultjdentifier); 

if {-ifound) 

identifier Jist jpointer = identifierJist_pointer^>next; 
} 
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if (-ifound) { 

/* search for the result identifier in the list of external result identifiers for NO for this 
attribute */ 

identifier •_list_pointer = attribute_pointer—>details.external.no_identifier_head; 

vector_pointer^>attribute_value = NO; 

while ((identifier _list_pointer =/= NULL) A -ifound) { 

found = -istrcmp(identifier_list_pointer^>identifier 1 nearest_result_identifier); 

if (-ifound) 

identifier _list_pointer = identifier_list_pointer^>next; 

} 

if (-ifound) { 

/* search for the result identifier in the list of external result identifiers for UNKNOWN 
for this attribute */ 

identifier _list_pointer = attribute _pointer^> details. external.unknownjidentifierjiead; 
vector_pointer^>attribute_value = UNKNOWN] 
while ((identifier Jistjpointer ^ NULL) A -ifound) { 

found = -i strcmp (identifier 'Jistjpointer ^identifier, nearest_result_identifier); 

if (-ifound) 

identifier JAstjpointer = identifier JAstjpointer^next; 

} 

if (-ifound) { 

sprintf (message, "Unexpected u external u result u identif ier u \"°/ s\"" , 
nearest_result_identifier) ; 

error •_exit(log_stream, message); 

} 
} 
} 

/* write details of the attribute value to the log file */ 

Indent(log_stream, level); 

fprintf (log_stream, "Value u of u Ay»u u is u " , attribute_number); 
switch (vector_pointer^>attribute_value) { 
case YES: 

fprintf (log _stream, "YES"); 
break; 
case NO: 

fprintf (log _str earn, "NO"); 
break; 
case UNKNOWN: 

fprintf (log .stream, "UNKNOWN" ) ; 
break; 

} 

fprintf (log_stream, " . \n\n"); 

return TRUE; 
} 
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static vector _element * 

geLfact( 

file log_stream, 

case_law_specification casejaw, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distances jilename, 

string weights jilename, 

string report_filename, 

attribute * attribute jpointer, 

cardinal attribute _number) 

/* Determines the value, in the instant case, of the attribute pointed to by attribute jpointer 
(attribute attribute _number) . Interrogates the user, if the attribute is local; resolves the 
value by reference to the relevant area, if the attribute is external. Returns a pointer to a 
single vector element containing the attribute value; or NULL, if the user chooses to quit. */ 



{ 



vector ^element *vectorjpointer; 

/* allocate memory for this vector element */ 

if ((vector '.pointer = (vector_element *) malloc(sizeof(vector_element))) = NULL) 
error_exit(log_stream, "malloc u f ailed u during u f act u vector u handling"); 

if (attribute_pointer^external_attribute) { 

/* the attribute is external */ 

if (-iget_external_fact(log_stream, casejaw, adjust, echo, inputablejatex, verbose, 
hypotheticaLreports, hypotheticaLchanges, level, 
distances Jilename, weightsjilename, reportjilename, 
attribute jpointer, attribute _number, vector jpointer)) { 

/* quit */ 

jree[vector jpointer); 
return NULL; 
} 
} else { 

/* the attribute is local */ 

if (-igetJocaLfact(log_stream, attribute jpointer, vector jpointer, echo, level)) { 

/* quit */ 

free{vector -jpointer); 
return NULL; 

} 
} 

vector_pointer—ynext = NULL; 
return vector jpointer; 
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extern vector ^element * 
Get_Facts( 

file log_stream, 

case_law_specification casejaw, 

area * area_pointer, 

boolean adjust, 

boolean echo, 

boolean inputablejatex, 

boolean verbose, 

cardinal hypotheticaLreports, 

cardinal hypotheticaLchanges, 

cardinal level, 

string distancesjilename, 

string weights jfilename, 

string reportjilename) 

/* Interrogates the user as to the values of local attributes, in the instant case, in the area 
pointed to by areajpointer. Resolves the value of external attributes by reference to the 
relevant area, recursively invoking Case_Law(). Prompts the user by writing to stdout; 
reads the user's response from stdin. Returns a pointer to a fact vector containing the facts 
of the instant case; or NULL, if the user chooses to quit. */ 

{ 

attribute * attribute jpointer; 

vector ^element *facts_head = NULL, 

^■vector jpointer = NULL; 
cardinal count = 1; 

/* for every attribute ... */ 

for {attribute jpointer = areajpointer^>attribute_head; attributejpointer =/= NULL; 
attributejpointer = attributejpointer^-next) 
if (facts_head = NULL) { 

/* this is the first attribute */ 

if ((facts_head = get_fact(log_stream, casejaw, adjust, echo, inputablejatex, 

verbose, hypotheticaLreports, hypotheticaLchanges, level, 
distances_ftlename, weights_ftlename, reporLftlename, 
attributejpointer, 1)) = NULL) 

/* quit */ 

return NULL; 

vector jpointer = factsjiead; 
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} else { 

/* this is not the first attribute */ 

count++; 

if ((vector_pointer—>next = 

get_fact(log_stream, casejaw, adjust, echo, inputablejatex, 

verbose, hypotheticaLreports, hypotheticaLchanges, level, 
distances_ftlename, weights_ftlename, report_ftlename, 
attribute jpointer, count)) = NULL) 

/* quit */ 

return NULL; 

vector jpointer = vector ^pointer— ynext; 

} 
return factsjiead; 

} 




The Odometer module 



odometer .h 

/* This is the header file for the Odometer module. It is also included by the Cases, Dumper 
and Reporter modules. */ 

/* external functions */ 

extern relative_distance_type 

Relative_Distance ( 

distancejype x, 
distancejype y); 

extern void 

Calculate_Distances ( 

file distances_stream, 
file log_stream, 
area * area_pointer, 
case_law_specification casejaw, 
vector ^element *facts_head, 
boolean hypothetical, 
cardinal number, 
cardinal level); 

odometer. c 

/* This is the implementation file for the Odometer module. */ 

^include (stdio.h) 
^include (math.h) 
^include " shyster. h" 
^include " cases. h" 
^include "odometer. h" 
^include "dumper. h" 
^include " scales. h" 
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static void 

error_exit( 

file stream, 

const string message) 

{ 

Write_Error_Message_And_Exit(stream, "Odometer", message); 

} 

static void 

warning ( 

file stream, 

const string message, 

cardinal level) 

{ 

Write_Warning_Message(stream, "Odometer", message, level); 

} 

static void 

zero_subdistance ( 

distance_subtype * subdistancejpointer) 

/* Sets the subdistance pointed to by subdistancejpointer to zero. */ 

{ 

subdistancejpointer— ^infinite = 0; 

subdistancejpointer^ffinite = 0.0; 
} 

static void 

zero_distance( 

distance_type * distance jpointer) 

/* Sets the distance pointed to by distancejpointer to zero. */ 

{ 

zero_subdistance{k,distancejpointer^>known); 
zero _subdistance(Jk, distance jpointer^unknown); 

} 
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static void 

zero .correlation^ 

correlation_type * correlation_pointer) 

/* Sets the correlation coefficient pointed to by correlationjpointer to zero. */ 

{ 

correlation_pointer^nrneaningless = FALSE; 

correlationjpointer^unweighted = 0.0; 

correlationjpointer^fweighted = 0.0; 
} 

static void 

zero_metrics( 

metrics _type * metrics jpointer) 

/* Sets the metrics pointed to by metrics jpointer to zero. */ 

{ 

zero_distance(&zmetricsjpointer—>distance); 

metrics_pointer—>number_of_known_differences = 0; 

metrics jpointer ^number _of_known_pairs = 0; 

metrics_pointer—>weighted_association_coefficient = 0.0; 

zero_correlation(&imetrics_pointer^correlation_coefficient); 
} 

static relative_distance_type 
relative_subdi stance ( 

distance_subtype x, 

distance_subtype y) 

/* Returns NEARER, if the subdistance x is less than the subdistance y; returns FURTHER, 
if x is greater than y; returns EQUIDISTANT, otherwise. */ 

{ 

if ((x. infinite = y. infinite) A Is_Equal(x. finite, y. finite, Distance_Precision)) 

return EQUIDISTANT; 
else if ((x. infinite < y. infinite) V 

{{x.infinite = y.infinite) A Is_Less(x. finite, y. finite, Distance_Precision))) 
return NEARER; 
else 

return FURTHER; 
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extern relative_distance_type 
Relative_Distance ( 

distance_type x, 

distance_type y) 

/* Returns NEARER, if the distance x is less than the distance y; returns FURTHER, if x is 
greater than y; returns EQUIDISTANT, otherwise. */ 



{ 



if ((x.known.infinite + x.unknown.infinite = 

y. known. infinite + y.unknown.infinite) A 
Is_Equal(x. known, finite + x.unknown.finite, 

y.known.finite + y. unknown. finite, Distance_Precision)) 
return EQUIDISTANT; 
else if ((x.known.infinite + x.unknown.infinite < 

y. known. infinite + y.unknown.infinite) V 
((x.known.infinite + x.unknown.infinite = 

y.known.infinite + y.unknown.infinite) A 
Is_Less(x. known, finite + x.unknown.finite, 

y.known.finite + y. unknown. finite, Distance_Precision))) 
return NEARER; 
else 

return FURTHER; 



static void 

add_weight( 

file log_stream, 
attribute_value_type x, 
attribute_value_type y, 
weight_type weight, 
metrics_type * metrics jpointer, 
cardinal level) 

/* Adds weight to the known distance in the metrics pointed to by metricsjpointer, if the 
attribute values x and y are known and different. Adds weight to the unknown distance 
in the metrics pointed to by metricsjpointer, if either of the attribute values x or y is 

UNKNOWN. */ 



{ 



if (^weight.infimte A Is_Zero(weight.fimte) A ((x ^ UNKNOWN) V (j/ ^ UNKNOWN))) 
warning (log_stream, "known u attribute u value u f or u weightless u attribute" , level); 
else if ((x = UNKNOWN) V (y = UNKNOWN)) 
if (weight.infinite) 

metrics_pointer—>distance.unknown.inftnite++; 
else 

metrics_pointer^> distance. unknown, finite += weight.finite; 
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else { 

if (x ± y) { 

if (weight.infinite) 

metrics_pointer—>distance.known.inftnite++; 
else 

metricsjpointer—tdistance. known, finite += weight.finite; 
} 
} 
} 

static void 

sum_pair( 

attribute_value_type x, 
attribute_value_type y, 
weight_type weight, 
metrics_type *sum_pointer_X, 
correlation_type * sum_pointer_ Y) 

/* Adds the attribute values (weighted and unweighted) of both x and y to various of the 
metrics of sum_pointer_X and sum_pointer_Y 1 if both x and y are known. (These metrics 
are used here as temporary storage; the final sums are later used to calculate association 
and correlation coefficients.) */ 



{ 



floating _point temp; 

if ((x ^ UNKNOWN) A (y ^ UNKNOWN)) { 

sum_pointer_X—>number_of_known_pairs++; 
if (x ± y) 

sum_pointer_X—>number_of_known_differences++; 

sum_pointer_X^weighted_association_coefficient += weight.finite; 

if (weight.infinite) 

/* one of the attributes is infinitely weighted, so use a "pseudo-infinite" weight for 
the calculation of weighted correlation coefficients */ 

weight.finite = Very_Heavy_Indeed; 

(void) Attribute. Value(x, h,temp); 

sum_pointer_X^correlation_coefficient.unweighted += temp; 
sum_pointer_X^correlation_coefficient.weighted += temp x weight.finite; 

(void) Attribute _Value(y, Iktemp); 
sum_pointer_Y ^unweighted += temp; 
sum_pointer_Y—>weighted += temp x weight.finite; 
} 
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static void 

correlate -pair ( 

attribute_value_type x, 
attribute_value_type y, 
floating —point mean_X, 
floating_point mean_ Y, 
floating_point * numerator, 
floating-point * left_denominator, 
floating-point * right_denominator, 
weight_type weight) 

/* Updates enumerator, *left_denominator and *right_denominator appropriately, if both x 
and y are known: *left_denominator is incremented by the square of the weighted value of 
x less mean_X ; * right_denominator is incremented by the square of the weighted value of 
y less mean_Y; enumerator is incremented by the product of the weighted value of x less 
mean_X and the weighted value of y less mean_Y. These variables are later used in the 
calculation of the weighted correlation coefficient r' which is defined as 

n _ _ 

J2 {Aij xwi- A'j) (Aik xwi- A' k ) 

I _ i=l 

n 2 n _ 2 

. E ( A ij xm- A') ]T (Ai k xwi- A' k ) 
y »=i i=i 

where Ajj is the value of the ith attribute for the jth case, Wi is the weight of the ith 
attribute, and A'a is the weighted mean of all attribute values for the jth case, (enumerator, 
*left_denominator and *right_denominator are so-named because they form the numerator, 
and the left and right side of the (square of the) denominator, in the above formula.) */ 



{ 



floating-point temp_X, 
temp_ Y ; 

if ((x ^ UNKNOWN) A (y ^ UNKNOWN)) { 

if (weight.infinite) 

/* one of the attributes is infinitely weighted, so use a "pseudo-infinite" weight for 
the calculation of weighted correlation coefficients */ 

weight. finite = Very_Heavy_Indeed; 

(void) Attribute_ Value(x, lktemp_X); 
(void) Attribute _Value(y, Sktemp_Y)\ 

enumerator += [tempJX x weight.finite — meanJX) x 

(temp_Y x weight.finite — mean_Y); 
*left_denominator += (tempJX x weight.finite — mean_X) x 

(tempJX x weight.finite — meanJX); 
*right_denominator += (temp_Y x weight.finite — mean_Y) x 

(temp_Y x weight.finite — mean_Y); 



1 
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static void 

calculate_case_means( 

matrix_element ^matrixjpointer, 
vector ^element ^-vector jpointer, 
attribute * attributejpointer, 
metrics_type * metrics jpointer, 
correlation_type * correlation_pointer) 

/* Calculates the mean attribute values for a leading case and the instant case (their attribute 
values are pointed to by matrixjpointer and vector 'jpointer, respectively) and stores them as 
the correlation coefficients in * metrics jpointer and * correlation jpointer, respectively. (These 
correlation coefficients are used here as temporary storage; their values are later used to 
calculate the actual correlation coefficients.) * attributejpointer is the head of the list of 
attributes for this area. */ 

{ 

while (matrixjpointer ^ NULL) { 

sumjpair{matrixjpointer^attributejvalue, vector •jpointer^attributejvalue, 

attribute jpointer ^w eight, metrics jpointer, correlationjpointer) ; 

matrixjpointer = matrixjpointer— >case_next; 

vector jpointer = vector jpointer^>next; 

attributejpointer = attribute_pointer^next; 

} 

if (metrics_pointer—>-number_of_known_pairs =/= 0) { 

metrics jpointer^correlation_coefficient.unweighted /= 

metrics_pointer—>number_of_known_pairs; 
metrics _pointer^>correlation_coefficient.weighted /= 

metrics_pointer^number_of_known_pairs; 
correlationjpointer^unweighted /= 

metricsjpointer—>number_of_knownjpairs; 
correlationjpointer— ^weighted /= 

metrics_pointer—>number_of_knownjpairs; 

} 



static void 

calculate_case_metrics( 
file log_stream, 

matrix_element * matrixjpointer, 
vector ^element ^-vector jpointer, 
attribute * attributejpointer, 
metrics_type * metrics jpointer, 
boolean * correlation_coefficients, 
cardinal level) 

/* Calculates the metrics for a leading case and the instant case (their attribute values 
are pointed to by matrixjpointer and vector jpointer, respectively) and stores them in 
^■metrics jpointer. * attributejpointer is the head of the list of attributes for this area. 
*correlation_coefficients is set to TRUE, if the correlation coefficients are meaningful 
(i.e. neither of the two cases has all attribute values equal). */ 
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correlation_type vectorjmeans, 

numerator, 

left_denominator, 

right_denominator; 
weight_type unitjweight = { FALSE, 1.0 }; 

zero_correlation(&ivector_means); 
zero_correlation(k,numerator) ; 
zero_correlation(&zleft_denominator); 
zero_correlation(k,right_denominator); 

calculate_casejmeans(matrixjpointer, vector_pointer, attribute jpointer, 
metrics_pointer, &ivector_means) ; 

while (attributejpointer ^ NULL) { 

add_weight(log_stream, matrixjpointer^attributejvalue, 
vector jpointer^* attribute jvalue, 
attributejpointer— ^weight, metrics jpointer, level); 

correlate jpair(matrixjpointer^attributejvalue, vector jpointer^attributejvalue, 

metrics_pointer—>correlation_coefficient.unweighted, vectorjmeans. unweighted, 
Enumerator. unweighted, lkleft_denominator. unweighted, 
k,right_denominator. unweighted, unitjweight); 

correlate_pair(matrix_pointer—>attributejvalue, vector_pointer—>attribute_value, 
metrics _pointer^correlation_coefficient.weighted, vectorjmeans. weighted, 
Enumerator. weighted, &ileft_denominator. weighted, 
k,right_denominator.weighted, attribute jpointer ^weight) ; 

matrixjpointer = matrixjpointer^casejnext; 
vector jpointer = vector ^pointer— ynext; 
attributejpointer = attribute jpointer '^next; 

} 
metrics_pointer—>weighted_association_coefficient = 

metrics jpointer^distance.known. finite j 

metrics_pointer^weighted_association_coefficient; 

if (Is_Zero(left_denominator.unweighted x right_denominator.unweighted)) 

/* either this case or the instant case has all attribute values equal: the correlation 
coefficients are meaningless */ 

metrics_pointer—>correlation_coefficient.meaningless = TRUE; 

else { 

metricsjpointer^correlation_coefficient.unweighted = numerator.unweighted / 

(floating jpoint) sgrt((double) 

(left_denominator. unweighted x right_denominator.unweighted)); 
metricsjpointer—>correlation_coefficient.weighted = numerator. weighted / 

(floating _point) sgrt((double) 

(left_denominator. weighted x right_denominator. weighted)); 
*correlation_coefficients = TRUE; 
} 
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static void 

calculate_idealjpointjmeans( 

vector ^element *vector jpointer _X, 
vector ^element *vector jpointer _Y , 
attribute * attribute jpointer, 
metrics_type * metrics jpointer, 
correlation_type * correlation_pointer) 

/* Calculates the mean attribute values for an ideal point and the instant case (their attribute 
values are pointed to by vector_pointer_X and vector jpointer _Y, respectively) and stores 
them as the correlation coefficients in *metrics_pointer and * correlation jpointer, respect- 
ively. (These correlation coefficients are used here as temporary storage; their values are 
later used to calculate the actual correlation coefficients.) * attribute_pointer is the head of 
the list of attributes for this area. */ 

{ 

while [vector _pointer_X ^ NULL) { 

sumjpair (vector jpointer_X^>attribute_value, vector jpointer_Y^>attribute_value, 

attribute jpointer ^w eight, metrics jpointer, correlationjpointer) ; 

vectorjpointer_X = vector jpointer _X^>next; 

vector jpointer _Y = vector _pointer_Y '—mext; 

attributejpointer = attributejpointer^next; 

} 

if (metricsjpointer—>number_of_knownjpairs ^ 0) { 

metrics jpointer^*correlation_coefficient.unweighted /= 

metricsjpointer—>number_of_knownjpairs; 
metrics jpointer^correlation_coefficient.weighted /= 

metricsjpointer^number_of_knownjpairs; 
correlationjpointer^unweighted /= 

metricsjpointer—>number_of_knownjpairs; 
correlationjpointer—nueighted /= 

metrics_pointer—>number_of_knownjpairs; 

} 



static void 

calculate_ideal_pointjmetrics( 
file log_stream, 

vector ^element *vector jpointer _X, 
vector _element *vector jpointer _Y, 
attribute * attributejpointer, 
metrics_type * metrics jpointer, 
boolean * correlation_coefficients, 
cardinal level) 

/* Calculates the metrics for an ideal point and the instant case (their attribute values 
are pointed to by vector jpointer _X and vector jpointer _Y, respectively) and stores them 
in *metrics_pointer. * attribute jpointer is the head of the list of attributes for this area. 
*correlation_coefficients is set to TRUE, if the correlation coefficients are meaningful 
(i.e. neither the ideal point nor the instant case has all attribute values equal). */ 
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correlation_type vectorjmeans, 

numerator, 

left_denominator, 

right_denominator; 
weight_type unit_weight = { FALSE, 1.0 }; 

zero_correlation(&ivector_means); 
zero_correlation(k,numerator) ; 
zero_correlation(&zleft_denominator); 
zero_correlation(lkright_denominator); 

calculate_idealjpointjmeans(vector jpointer _X, vector jpointer_ Y, attribute jpointer, 
metrics .pointer, Evectorjmeans) ; 

while (attributejpointer =/= NULL) { 

add_weight(log_stream, vector jpointer _X^attributejvalue, 
vector jpointer _Y ^attribute jvalue, 
attribute jpointer ^>w 'eight, metrics jpointer, level); 

correlate_pair(vector_pointer_X—>attribute_value, vector_pointer_Y—>attribute_value, 
metrics _pointer^correlation_coefficient.unweighted, vector j/neans. unweighted, 
Enumerator. unweighted, lkleft_denominator. unweighted, 
Eright_denominator. unweighted, unit jw eight); 

correlate _pair (vector ^pointer -_X— ^attribute jualue, vector jpointer _Y '^attribute jualue, 

metrics_pointer—>correlation_coefficient.weighted, vector j/neans. weighted, 
Enumerator. weighted, h,left_denominator. weighted, 
k,right_denominator.weighted, attribute jpointer ^weight) ; 

vector jpointer _X = vector_pointer_X^next; 
vector jpointer _Y = vector jpointer _Y ^>next; 
attributejpointer = attribute_pointer^next; 

} 

metrics _pointer^weighted_association_coefficient = 

metrics_pointer—>distance. known, finite / 

metrics_pointer—>weighted_association_coefficient; 

if (Is_Zero(left_denominator.unweighted x right_denominator. unweighted)) 

/* either this ideal point or the instant case has all attribute values equal: the correla- 
tion coefficients are meaningless */ 

metrics_pointer—>correlation_coefficient.meaningless = TRUE; 
else { 

metrics_pointer—>correlation_coefficient.unweighted = numerator.unweighted / 
(floating jpoint) sgrt((double) 

(left_denominator.unweighted x right_denominator.unweighted)); 
metrics_pointer^fCorrelation_coefficient.weighted = numerator. weighted / 
(floating jpoint) sgrt((double) 

(left_denominator. weighted x right_denominator. weighted)); 
*correlation_coefficients = TRUE; 
} 
} 
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static void 

calculate_centroidjmeans( 

centroid_element * centroidjpointer, 
vector '.element *vector_pointer, 
attribute * attributejpointer, 
metrics jtype * metrics jpointer, 
correlation_type * correlationjpointer) 

/* Calculates the mean attribute values for a centroid and the instant case (their attribute 
values are pointed to by centroidjpointer and vector jpointer, respectively) and stores them as 
the correlation coefficients in * metrics jpointer and * correlationjpointer ; respectively. (These 
correlation coefficients are used here as temporary storage; their values are later used to 
calculate the actual correlation coefficients.) * attributejpointer is the head of the list of 
attributes for this area. */ 



{ 



floating-point temp; 
weight_type weight; 

while {centroidjpointer ^ NULL) { 

if ((-'centroidjpointer— >-unknown) A (vector_pointer—>attribute_value =/= UNKNOWN)) { 

metrics_pointer—>number_of_knownjpairs++; 
if (Nearest_Attribute_Value(centroidjpointer^>value) ^ 
vector ■jpointer^attributejvalue) 
metrics_pointer—>number_of_known_differences++; 
weight = attributejpointer— ^weight; 

metrics_pointer—>weighted_association_coefficient += weight.finite; 

/* use the actual centroid value, not the nearest attribute value (as is done for 
leading cases and ideal points) */ 

metrics_pointer^correlation_coefficient.unweighted += centroidjpointer^fvalue; 
metrics_pointer—>correlation_coefficient.weighted += 
centroid jpointer^value x weight.finite; 

(void) Attribute_Value(vector jpointer— >attribute_value, k,temp); 
correlationjpointer— ^unweighted += temp; 
correlationjpointer— ^weighted += temp x weight.finite; 

} 

centroidjpointer = centroidjpointer^>next; 
vector jpointer = vector jpointer^>next; 
attributejpointer = attribute jpointer '^next; 

} 

if (metricsjpointer^number_of_knownjpairs ^ 0) { 

metrics _pointer^correlation_coefficient.unweighted /= 

metrics_pointer—>number_of_knownjpairs; 
metrics _pointer^correlation_coefficient.weighted /= 

metrics_pointer—>number_of_known_pairs; 
correlationjpointer^unweighted /= 

metrics _pointer^number_of_known_pairs; 
correlationjpointer^weighted /= 

metrics _pointer^number_of_knownjpairs; 
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static void 

calculate _centroid_metrics{^ 
file log_stream, 

centroid_element * centroid jpointer, 
vector '.element *vector_pointer, 
attribute *attribute_pointer, 
metrics_type * metricsjpointer, 
boolean * correlation_coefficients, 
cardinal level) 

/* Calculates the metrics for a centroid and the instant case (their attribute values are pointed 
to by centroidjpointer and vectorjpointer, respectively) and stores them in ^metrics jpointer. 
* attribute_pointer is the head of the list of attributes for this area. *correlation_coefficients 
is set to TRUE, if the correlation coefficients are meaningful (i.e. neither the centroid nor 
the instant case has all attribute values equal). */ 

{ 

correlation_type vectorjmeans, 

numerator, 

left_denominator, 

right_denominator; 
floatingjpoint temp, 

weight; 

zero_correlation{k,vectorjmeans); 
zero_correlation(!knumerator) ; 
zero_correlation(!kleft_denominator); 
zero_correlation(!kright_denominator); 

calculate_centroid_means(centroid_pointer, vector jpointer, attribute jpointer, 
metrics jpointer, &ivector_means); 

while (attribute_pointer ^ NULL) { 

if (centroid jpointer '^unknown) 

add_weight(log_stream, UNKNOWN, vector jpointer^attributejvalue, 
attribute_pointer^fweight, metricsjpointer, level); 
else { 

add_weight(log_stream, Nearest_Attribute_Value(centroid_pointer— rvalue), 
vectorjpointer— >attributejvalue, attribute_pointer—>weight, 
metricsjpointer, level) ; 

if {vector jpointer^* attribute jvalue ^ UNKNOWN) { 

if (attribute_pointer^weight.inftnite) 

/* one of the attributes is infinitely weighted, so use a "pseudo- infinite" 
weight for the calculation of weighted correlation coefficients */ 

weight = Very_Heavy_Indeed; 
else 

weight = attributejpointer^-weight.finite; 

(void) Attribute. Value(vector_pointer^attribute_value, Iktemp); 



} 
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/* use the actual centroid value, not the nearest attribute value (as is done for 
leading cases and ideal points) */ 

numerator.unweighted += (centroidjpointer^-value — 

metrics jpointer^correlation_coefficient.unweighted) x 

(temp — vector jmeans.unweighted); 
left_denominator.unweighted += (centroid_pointer— rvalue — 

metrics jpointer^correlation_coefficient.unweighted) x 

(centroidjpointer^value — 

metrics jpointer^correlation_coefflcient.unweighted); 
right_denominator.unweighted += (temp — vectorjmeans.unweighted) x 

(temp — vector jmeans.unweighted); 

numerator.weighted += (centroidjpointer^value x weight — 

metrics _pointer^correlation_coefflcient.weighted) x 

(temp x weight — vector •jmeans.weighted); 
left_denominator.weighted += (centroid_pointer^value x weight — 

metrics jpointer^correlation_coefficient.weighted) x 

(centroid_pointer^fvalue x weight — 

metrics_pointer—>correlation_coefficient.weighted); 
right_denominator.weighted += (temp x weight — vector_means.weighted) x 

(temp x weight — vectorjmeans. weighted); 
} 

} 

centroidjpointer = centroidjpointer^>next; 
vector jpointer = vector ^pointer— ynext; 
attribute_pointer = attribute jpointer •— >nea;i; 

} 
metrics_pointer—>weighted_association_coefficient = 

metrics_pointer—>distance. known, finite / 

metrics jpointer^weighted_association_coefficient; 

if (Is_Zero(left_denominator.unweighted x right_denominator.unweighted)) 

/* either this centroid or the instant case has all attribute values equal: the correlation 
coefficients are meaningless */ 

metrics_pointer^correlation_coefficient.meaningless = TRUE; 
else { 

metrics_pointer^fCorrelation_coefficient.unweighted = numerator.unweighted / 

(floating _point) sgrt((double) 

(left_denominator. unweighted x right_denominator.unweighted)); 
metrics_pointer^fCorrelation_coefficient.weighted = numerator.weighted / 

(floating _point) sgrt((double) 

(left_denominator. weighted x right_denominator. weighted)); 
*correlation_coefficients = TRUE; 
} 



static weight_list_element * 
result_weight( 

weight_list_element ^weights jpointer, 

result * result jpointer ; 

result ^-target jresult jpointer) 
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/* Returns the result weight (from the list of result weights pointed to by weightsjpointer) 
which corresponds to the result pointed to by target_result jpointer. (* result .pointer is the 
head of the list of results for this area.) */ 



{ 



w 



} 



hile (resultjpointer ^ target_result_pointer) { 
weights_pointer = weights jpointer^>next\ 
resultjpointer = resultjpointer^next; 

} 

return weightsjpointer ■; 



static void 

calculate_specified_directions( 

attribute * attribute jpointer, 
vector ^element ^vector jpointer, 
result *result_head) 

/* For every attribute, if the attribute value in the instant case is directed towards a result, 
adds the weight of the attribute to the specified direction for that result. * attribute jpointer 
is the head of the list of attributes for this area. The attribute values of the instant case 
are pointed to by vector jpointer. */ 



{ 



direction_list_element * direction jpointer] 
weight_list_element ^weights jpointer; 

while (attributejpointer =/= NULL) { 

switch (vectorjpointer^-attributejvalue) { 
case YES: 

directionjpointer = attributejpointer^>-yes_direction_head; 

break; 
case NO: 

directionjpointer = attribute jpointer— >no_direction_head; 

break; 
case UNKNOWN: 

directionjpointer = attribute_pointer^unknown_direction_head; 

break; 

} 

while (directionjpointer =/= NULL) { 

weightsjpointer = resultjweight(attributejpointer^>weights_head, 
resultjiead, directionjpointer^result) ; 

if (weights -jpointer— tweight.infinite) 

direction_pointer^result-^specifted_direction.inftnite++; 

else 

directionjpointer^>-result-^specified_direction.finite += 
weightsjpointer— ^weight. finite: 

directionjpointer = directionjpointer^next; 

} 

vector jpointer = vector jpointer '^next; 
attributejpointer = attribute jpointer ^>next\ 
} 
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static void 

calculate_other_directions( 
area *area_pointer, 
vector ^element *vector_pointer) 

/* For every attribute, if only one ideal point has an attribute value matching that of the instant 
case, adds the weight of the attribute to the ideal point direction for that ideal point's result. 
Similarly, for every attribute, if only one centroid has an attribute value matching that of 
the instant case, adds the weight of the attribute to the centroid direction for that centroid's 
result. The attribute values of the instant case are pointed to by vectorjpointer. 

UNKNOWN values are ignored when counting matches. This differs from the calculation of 
specified directions (in calculate_specifted_directions()) because an UNKNOWN value in an 
ideal point could mean "don't know," while in a centroid it just indicates an absence of 
values; by contrast, an UNKNOWN specified direction means "an UNKNOWN value for this 
attribute suggests this result." */ 



result * result _pointer, 

*ideal_point_matching_result, 

* centroid jmatchingjresult; 
attribute * attribute jpointer = area_pointer^attribute_head; 
vector ^element ^idealjpointjpointer; 
centroid_element * centroidjpointer; 
cardinal count, 

idealjpointjmatches_count, 
centroidjmatches_count; 
weight_list_element ^-weights jpointer; 

while (vectorjpointer ^ NULL) { 

if (vector jpointer—>-attribute_value =/= UNKNOWN) { 

/* count the number of ideal points and centroids with the same value for this 
attribute as has the instant case */ 

ideal_point_matches_count = 0; 
centroid_matches_count = 0; 
resultjpointer = area_pointer^>result_head; 
while (resultjpointer ^ NULL) { 

idealjpoint_pointer = resultjpointer^>ideal_point_head\ 
centroid_pointer = resultjpointer— >centroid_head; 
for (count = 1; count < attribute_pointer—>number; count++) { 
if (idealjpointjpointer ^ NULL) 

idealjpointjpointer = ideal_point_pointer^>next; 
if (centroidjpointer ^ NULL) 

centroidjpointer = centroid_pointer^>next; 
} 
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if ((ideal_point_pointer =/= NULL) A 

(ideal_point_pointer^attribute_value = 

vector_pointer^>attribute_value)) { 
ideal_point_matches_count++ ; 
ideal_point_matching_result = result _pointer; 

} 

if ((centroidjpointer ^ NULL) A 

((centroid_pointer^unknown A 

(vector_pointer^attribute_value = UNKNOWN)) V 

(Nearest_ Attribute _ Value (centroid_pointer— rvalue) = 

vector_pointer^attribute_value))) { 

centroid_matches_count++; 

centroid_matching_result = result_pointer; 

} 

resultjpointer = result_pointer^>-next; 

} 

if (ideal_point_matches_count = 1) { 

/* add the weight of the attribute to the ideal point direction for the matching 
ideal point's result */ 

weights_pointer = result_weight{attribute_pointer^>weights_head 1 
area_pointer^>result_head, ideal_point_matching_result) ; 

if (weights_pointer^weight.inftnite) 

ideal_point_matching_result^ideal_point_direction.inftnite++; 
else 

idealjpoint_rnatching_result-^ideal_point_direction.finite += 
weights_pointer—>weight.ftnite; 

} 

if (centroid_matches_count = 1) { 

/* add the weight of the attribute to the centroid direction for the matching 
centroid's result */ 

weightsjpointer = result_weight(attribute_pointer^>-weights_head 1 
area_pointer^>result_head, centroid_matching_result) ; 

if (weights_pointer^weight.inftnite) 

centroid_matching_result-^centroid_direction.inftnite++; 

else 

centroid_matching_result-^centroid_direction.ftnite += 
weights_pointer^weight.ftnite; 

} 
} 

attributejpointer = attribute jpointer^next; 
vector jpointer = vector _pointer^>next; 

} 
} 
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static void 

find_nearest_and_strongest(area *area_pointer) 

/* Finds the nearest result, nearest ideal point, nearest centroid, and strongest directions 
(specified, ideal point, and centroid) in the area pointed to by areajpointer, and adjusts 
various pointers in * areajpointer to point to them. */ 



{ 



result *result_pointer, 

* equidistantjpointer, 

*nearest_result = NULL] 
relative_distance_type relative_distance ; 
kase *nearest_neighbour; 

area_pointer^>nearest_result = NULL] 
area_pointer^nearest_ideal_point = NULL; 
area_pointer—>nearest_centroid = NULL; 
area_pointer—>strongest_specifted_direction = NULL; 
area_pointer^> strong est_ideal_point_direction = NULL; 
area_pointer—>strongest_centroid_direction = NULL; 

/* for every result ... */ 

for (resultjpointer = area_pointer—>result_head; resultjpointer ^ NULL; 
result_pointer = result_pointer—>next) { 

result_pointer^>equidistant_next = NULL; 

if (result_pointer^nearest_known_compared_with_unknown = FURTHER) 

nearest_neighbour = result jpointer^nearestju,nknown_case ; 
else 

nearest_neighbour = result jpointer^nearest_known_case; 

if [nearestjneighbour =/= NULL) 

/* this result has a nearest neighbour (i.e. it has at least one case) */ 

if (nearest_result = NULL) 

/* no nearest result has been found yet, so this result is the nearest so far */ 

nearest_result = resultjpointer; 

else { 

/* a nearest result has previously been found, so compare the nearest neighbour 
for this result with the nearest neighbour for that nearest result */ 

if (nearest_result-^>nearest_known_compared_with_unknown = FURTHER) 

relative_distance = Relative_Distance(nearest_neighbour—>metrics. distance, 
nearest _result-^>nearestjunknown_case-^>metrics. distance); 
else 

relative_distance = Relative_Distance(nearest_neighbour—>metrics. distance, 
nearest jresult-^nearest_known_case-^metrics. distance); 
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if (relative.distance = EQUIDISTANT) { 

/* the two cases are equidistant from the instant case, so add this result to 
the end of the list of equidistant results */ 

for (equidistantjpointer = nearest_result; 

equidistantjpointer— >equidistantjnext =/= NULL; 
equidistantjpointer = equidistant jpointer^-equidistantjnext) ; 
equidistantjpointer^equidistantjnext = resultjpointer; 

} else if (relative_di stance = NEARER) 

/* the nearest neighbour for this result is nearer to the instant case than the 
previous nearest neighbour, so this result becomes the nearest result */ 

nearest_result = resultjpointer; 
} 

/* check whether this result has the nearest ideal point */ 

resultjpointer^equidistant_idealjpointjnext = NULL] 
if (result_pointer—>ideal_point_head =/= NULL) { 
if (areajpointer^nearestjdealjpoint = NULL) 

area_pointer^>nearest_idealjpoint = resultjpointer; 
else if ((relative_di stance = 

Relative_Distance(resultjpointer—>ideal_pointjmetrics. distance, 
areajpointer^>nearest_idealjpoint-^> 
ideal_point_metrics. distance)) = EQUIDISTANT) { 
for {equidistantjpointer = area_pointer^>nearest_ideal_point; 

equidistant_pointer^equidistant_ideal_pointjnext ^ NULL] 
equidistantjpointer = equidistantjpointer— >equidistant_ideal_pointjnext) ; 
equidistant jpointer^>equidistant_idealjpoint_next = resultjpointer] 
} else if (relative_distance = NEARER) 

areajpointer^fnearestjdealjpoint = resultjpointer] 

} 

/* check whether this result has the nearest centroid */ 

resultjpointer^>equidistant_centroidjnext = NULL] 
if (resultjpointer— >centroid_head =/= NULL) { 
if (area_pointer^>nearest_centroid = NULL) 

area_pointer^>nearest_centroid = resultjpointer] 
else if ((relative_di stance = 

Relative_Distance(resultjpointer^> centroid jmetrics. distance, 
area_pointer^nearest_centroid-^r 
centroid jmetrics. distance)) = EQUIDISTANT) { 
for (equidistantjpointer = area_pointer—>nearest_centroid; 

equidistantjpointer— >equidistant_centroidjnext =/= NULL] 
equidistantjpointer = equidistant jpointer^>equidistant_centroidjnext) ; 
equidistantjpointer— >equidistant_centroidjnext = resultjpointer; 
} else if (relative_distance = NEARER) 

area_pointer—>nearest_centroid = resultjpointer] 

} 
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/* check whether this result has the strongest specified direction */ 

result_pointer^equidistant_specifted_directionjnext = NULL; 
if (area_pointer^strongest_specifted_direction = NULL) 

area_pointer^strongest_specifted_direction = resultjpointer; 
else if ((relative_distance = relative_subdistance(resultjpointer^specifted_direction, 

area_pointer—>strongest_specifted_direction-^ 
spectfied.dtrectton)) = EQUIDISTANT) { 
for (equidistantjpointer = areajpointer—>strongest_specifted_direction; 

equidistantjpointer^>equidistant_specified_directionjnext ^ NULL] 
equidistantjpointer = 

equidistant jpointer^equidistant_specified_direction_next); 
equidistant_pointer^equidistant_specifted_directionjnext = resultjpointer; 
} else if (relative_distance = FURTHER) 

area_pointer—>strongest_specifted_direction = resultjpointer; 

/* check whether this result has the strongest ideal point direction */ 

result _pointer^equidistant_idealjpoint_direction_next = NULL; 
if (areajpointer^>strongestJdealjpoint_direction = NULL) 

area_pointer—>strongest_ideal_point_direction = resultjpointer; 
else if ((relative_distance = relative_subdistance(result_pointer^>idealjpoint_direction, 

areajpointer—>strongest_idealjpoint_direction-^- 
tdealjpotnLdtrectton)) = EQUIDISTANT) { 
for (equidistantjpointer = area_pointer—>strongest_ideal_point_direction; 

equidistantjpointer— >equidistant_ideal_point_directionjnext =/= NULL; 
equidistantjpointer = 

equidistant jpointer^equidistant_idealjpoint_directionjnext); 
equidistant_pointer^equidistant_idealjpoint_direction_next = resultjpointer; 
} else if (relative_distance = FURTHER) 

area_pointer—>strongest_ideal_point_direction = resultjpointer; 

/* check whether this result has the strongest centroid direction */ 

resultjpointer^>equidistant_centroid_directionjnext = NULL; 
if (area_pointer—>strongest_centroid_direction = NULL) 

area_pointer—>strongest_centroid_direction = resultjpointer; 
else if ((relative_distance = relative_subdistance(result_pointer^centroid_direction, 

area jpointer—* strong est_centroid_direction-^> 
centroid.direction)) = EQUIDISTANT) { 
for (equidistantjpointer = area jpointer—* strong est_centroid_direction; 

equidistant jpointer^>equidistant_centroid_directionjnext ^ NULL; 
equidistantjpointer = 

equidistant jpointer^>equidistant_centroid_directionjnext); 
equidistantjpointer— >equidistant_centroid_direction_next = resultjpointer; 
} else if (relative_distance = FURTHER) 

areajpointer^fstrongest_centroid_direction = resultjpointer; 

} 

areajpointer^-nearestjresult = nearestjresult; 
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/* ensure that none of the strongest directions is so small as to be effectively zero */ 

if (Is_Zero_Subdistance(area_pointer^strongest_specifted_direction—> 
specified_direction)) 
area_pointer^strongest_specifted_direction = NULL; 
if (Is_Zero_Subdistance(area_pointer^>strongest_ideal_point_direction-^> 
ideal_point_direction)) 
areajpointer—* strong est_ideal_point_direction = NULL; 
if (Is_Zero_Subdistance(area_pointer^strongest_centroid_direction—> 
centroid_direction)) 
area_pointer^> strong est_centroid_direction = NULL; 



} 



static void 

resolve_equidistant_results( 
file log_stream, 
area * area_pointer, 
cardinal level) 

/* Chooses between two or more nearest results (and sets area_pointer-^nearest_result appro- 
priately) by reference to the rank of the courts involved in the nearest neighbours, and the 
recentness of those cases. Issues a warning as to how the equidistance has been resolved. */ 



{ 



result *result_pointer 1 

* highest_ranking_result, 

*most_recent_result; 
cardinal highest_ranking_court = 0, 

most_recent_year = 0; 
kase *nearest_neighbour; 
boolean one_highest_ranking_court = FALSE; 
boolean one_most_recent_year = FALSE; 

/* for each equidistant result ... */ 

for {resultjpointer = area_pointer—>nearest_result; resultjpointer ^ NULL; 
resultjpointer = resultjpointer— >equidistantjnext) { 

/* find the nearest neighbour for this result */ 

if (result_pointer^nearest_known_compared_with_unknown = FURTHER) 

nearest_neighbour = result jpointer^nearestjunknown_case ; 
else 

nearest_neighbour = resultjpointer^>nearest_known_case; 

if {{nearest_neighbour^fCourt_string ^ NULL) A 
(nearestjneighbour—>courtjrank =/= 0)) { 

/* this case has a court, with a rank */ 

if ((highestjranking_court = 0) V 

{near est jneighbour^> court jrank < highest_ranking_court)) { 

/* this is the first court for any result, or this court is more important than the 
highest ranking court yet found */ 



odometer . c 175 



highest_ranking_result = resultjpointer; 
highest_ranking_court = nearestjneighbour^courtjrank; 
one_highest_ranking_court = TRUE; 

/* this must also be the most recent case for this rank so far */ 

most_recent_result = resultjpointer; 
most_recent_year = nearestjneighbour^year; 
one_most_recent_year = TRUE; 

} else if (nearest jneighbour^> court jrank = highest_ranking_court) { 

/* there are two or more equidistant cases with courts of this rank */ 

one_highest_ranking_court = FALSE; 

if (nearest jneighbour^year > most jrecentjy ear) { 

/* this is the most recent case for this rank so far */ 

mostjrecent_result = resultjpointer; 

most jrecentjy ear = nearest '^neighbour— >y 'ear; 

one_most_recent_year = TRUE; 

} else if (near est ^neighbourly ear = most_recent_year) 

/* this case is exactly as old as the most recent case yet found for this 
rank */ 

onejmostjrecentjyear = FALSE; 

} 

} else { 

/* this case has no court, or a court with no rank */ 

if ((most jrecentjy ear = 0) V 

(near est ^neighbourly ear > most jrecentjy ear)) { 

/* this is the first case for any result, or this case is more recent than the most 
recent yet found */ 

mostjrecentjresult = resultjpointer; 

most jrecentjy ear = nearestjneighbour^-year; 

onejmostjrecentjyear = TRUE; 

} else if (nearest ^neighbourly ear = most jrecentjy ear) 

/* this decision is exactly as old as the most recent decision yet found */ 

onejmostjrecentjyear = FALSE; 
} 
} 
if (one_highestjranking_court) { 

/* there was only one highest ranking court, so choose that case's result */ 

area_pointer—>nearest_result = highest jrankingjresult; 
warning ( log_stream, 

"equidistant u results ; u nearest u result u chosen u " 

"onuthe u basis u of u rank", level); 
return; 
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if (one_most_recent_year) { 

/* there was only one case decided as recently as this, so choose that case's result */ 

area_pointer^>nearest_result = most_recent_resutt; 
warning ( log_stream, 

"equidistant u results; u nearest u result u chosen u " 

"on u the u basis u of u recentness", level)] 
return; 

} 

error _exit{log_stream, "can't u choose u between u equidistant u results"); 

} 

extern void 

Calculate_Distances( 

file distances_stream, 
file log_stream, 
area * areajpointer, 
case_law_specification casejaw, 
vector ^element *facts_head, 
boolean hypothetical, 
cardinal number, 
cardinal level) 

/* Calculates the distances between the instant case and every leading case, ideal point 
and centroid in the area pointed to by areajpointer, and writes a table of distances to 
distances_stream (if it is not NULL) . If number is not zero then the instant case is actually 
a hypothetical (if hypothetical is TRUE) or an instantiation, and number is its number. */ 



{ 



result * resultjpointer; 
kase *case_pointer, 

* equidistantjpointer; 
relative_distance_type relative_distance ; 

/* for every result ... */ 

for {resultjpointer = area_pointer—>result_head; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) { 

/* initialize result details */ 

resultjpointer^nearest_known_case = NULL; 
result_pointer^>nearestjanknown_case = NULL; 
zero_metrics(&result_pointer—>ideal_point_metrics); 
zero_metrics(&zresult_pointer—>centroid_metrics); 
zero_subdistance (& result_pointer—> specified jiirection) ; 
zero _subdistance{&, resultjpointer ^>ideal_point_direction); 
zero jsubdi stance (& result jpointer^centroid_direction) ; 
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/* for every case with this result ... */ 

for (casejpointer = result jpointer^casejiead; casejpointer ^ NULL] 
casejpointer = casejpointer^next) { 

/* initialize case details */ 

zerojmetrics(&icasejpointer^fmetrics); 
casejpointer— >equidistant_known_next = NULL; 
case_pointer^equidistant_unknown_next = NULL; 

calculate_casejmetrics(log_stream, case_pointer^matrix_head, 

factsjiead, area_pointer—>attribute_head, &zcase_pointer^ymetrics, 

& area_pointer—>correlation_coefficients, level) ; 

if (->Is_Zero_Subdistance(casejpointer—>metrics. distance. unknown)) { 

/* the case has unknown distance, so check to see whether it is the nearest 
unknown neighbour */ 

if (result_pointer^>nearestjunknown_case = NULL) 

result_pointer^>nearest_unknown_case = casejpointer; 
else if ((relative_distance = Relative_Distance(case_pointer—>metrics. distance, 

result_pointer—>nearestjunknown_case^>- 
metrics. distance)) = EQUIDISTANT) { 
for (equidistantjpointer = result jpointer^>nearestjunknown_case; 
equidistantjpointer^>equidistant_unknown_next ^ NULL; 
equidistantjpointer 

= equidistant_pointer—>equidistant_unknown_next) ; 
equidistantjpointer— >equidistant_unknown_next = casejpointer; 
} else if (relative_distance = NEARER) 

result '■jpointer—mearestjunknown_case = casejpointer; 

} else { 

/* the case has no unknown distance, so check to see whether it is the nearest 
known neighbour */ 

if (result_pointer—>nearest_known_case = NULL) 

resultjpointer^>nearest_known_case = casejpointer; 
else if ((relative_distance = Relative_Distance(case_pointer—>metrics. distance, 

result_pointer—>nearest_known_case—> 
metrics. distance)) = EQUIDISTANT) { 
for (equidistantjpointer = result _pointer—*nearest_known_case; 
equidistant_pointer—>equidistant_known_next =/= NULL; 
equidistantjpointer = equidistant_pointer—>equidistant_known_next) ; 
equidistant_pointer^equidistant_known_next = casejpointer; 
} else if (relative_distance = NEARER) 

resultjpointer^>nearest_known_case = casejpointer; 
} 
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/* note which of the nearest known neighbour and the nearest unknown neighbour is 
the nearest neighbour */ 

if ((result_pointer^>nearest_known_case = NULL) A 

(result_pointer^>nearest_unknown_case = NULL)) 
result_pointer^>nearest_known_compared_with_unknown = EQ UWISTANT; 
else if (result_pointer—>nearest_known_case = NULL) 

result_pointer^>nearest_known_compared_with_unknown = FURTHER] 
else if (result_pointer^>nearest_unknown_case = NULL) 

result_pointer^nearest_known_compared_with_unknown = NEARER] 
else 

result_pointer^nearest_known_compared_with_unknown = 

Relative_Distance(result_pointer^nearest_known_case-^>metrics. distance, 
result_pointer^nearest_unknown_case-^metrics. distance); 

if (result_pointer—>ideal_point_head =/= NULL) { 

calculate_ideal_point_metrics(log_stream, result_pointer^>ideal_point_head, 
factsjiead, area_pointer^>attribute_head, 
&Lresult_pointer—>ideal_point_metrics, 
& area_pointer^correlation_coefficients, level) ; 

} 

calculate_centroid_metrics(log_stream 1 result_pointer—>centroid_head, 

factsjiead, area_pointer^>attribute_head, &zresult_pointer^centroid_metrics, 
&iarea_pointer—>correlation_coefficients, level); 

} 

calculate_specifted_directions(area_pointer^attribute_head, factsjiead, 

areajpointer^resultjiead) ; 

calculate_other_directions(area_pointer, factsjiead) ; 

find_nearest_and_strongest(area_pointer); 

if (area_pointer—>nearest_result^>-equidistant_next =/= NULL) 

/* there are two or more equidistant results, so choose one of them */ 

resolve_equidistant_results(log_stream, areajpointer, level); 

if (distances _str earn ^ NULL) { 

if (number = 0) 

/* the instant case is the uninstantiated and unhypothesized instant case */ 

fprintf (distances_stream, "°/ s{y»s u area}\n\n" 

"°/os{In.stan.t u case}\n\n", Heading, areajpointer^fidentifier, Subheading); 

else if (hypothetical) 

/* the instant case is hypothetical number */ 

fprintf (distances _stream, "°/os{Hypothetical u °/ou}\n\n", Subheading, number); 
else 

/* the instant case is instantiation number */ 

fprintf (distances_stream, "°/os{Iristaritiation u 7 u}\ii\n", Subheading, number); 

Write_Matrix(distances_stream, areajpointer, factsjiead, 
case_law.court_head, hypothetical, number); 
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reporter .h 

/* This is the header file for the Reporter module. It is also included by the Cases 
module. */ 

/* external function */ 

extern void 

Write_Report( 

file report_stream, 
file log_stream, 
area * area_pointer, 
vector_element *facts_head, 
vector ^element *original_facts, 
boolean verbose, 
boolean hypothetical, 
boolean same_result, 
cardinal number, 
cardinal level); 



reporter. c 

/* This is the implementation file for the Reporter module. */ 

^include (stdio.h) 
^include " shyster. h" 
^include " cases. h" 
^include "reporter. h" 
^include " dumper. h" 
^include "odometer. h" 
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static void 

warning ( 

file stream, 

const string message, 

cardinal level) 

{ 

Write_Warning_Message(stream, "Reporter", message, level); 

} 

static void 

list_facts( 

file report_stream, 
vector ^element ^vector '.pointer, 
attribute * attribute jpointer, 
cardinal count) 

/* Lists the facts pointed to by vector jpointer by writing the appropriate string (yes, NO, or 
unknown) for each attribute. * attribute jpointer is the head of the list of attributes for this 
area, count is the number of attributes. */ 

{ 

/* while there are still facts to list ... */ 

while ((attributejpointer =/= NULL) A (count =/= 0)) { 

if (count = 1) 

Write(report_stream,vector_pointer—>attribute_value = YES ? 

attribute_pointer—>yes : vector_pointer—>attributejvalue = NO ? 
attributejpointer— >no : attributejpointer^funknown, " . ", 1, Hang); 
else if (count = 2) 

Write(report_stream, vector 'jpointer^ attribute jvalue = YES ? 

attribute_pointer^yes : vectorjpointer^>attribute_value = NO ? 
attributejpointer^no : attributejpointer^unknown, " ; u and", 1, Hang); 
else 

Write(report_stream,vector_pointer—>attributejvalue = YES ? 

attribute jpointer^fyes : vector_pointer^>attributejvalue = NO ? 
attributejpointer— >no : attributejpointer— ^unknown, " ; ", 1, Hang); 

vectorjpointer = vector •jpointer^next; 
attributejpointer = attribute jpointer '^next; 
count — ; 
} 
} 

static void 

list_equidistant_cases_known_first( 
file report_stream, 
kase *known_case jpointer, 
kase *unknown_case jpointer, 
boolean shortjnames, 
boolean and) 

/* Lists the case pointed to by known_case_pointer (and any known equidistant cases), then 
the case pointed to by unknown_case_pointer (and any unknown equidistant cases). Writes 
short case names, if shortjnames is TRUE. Writes "and" between the last two cases in the 
list, if and is TRUE; writes "or", otherwise. */ 
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/* while there are still known cases to list ... */ 
while (known_case_pointer =/= NULL) { 

/* write the case name with appropriate trailing characters */ 

fprintf (report_stream, "{\\it u °/ s", shortjnames ? 

known_case_pointer—>short_name : known_case_pointer—>name); 
if ((known_case_pointer^equidistant_known_next = NULL) A 
(unknown_case_pointer = NULL)) 

/* this is the last case to list */ 

fprintf (report_stream, " \\/} " ) ; 

else if (((known_case_pointer^equidistant_known_next =/= NULL) A 
(known_case_pointer—>equidistant_known_next^> 

equidistant_known_next = NULL) A 
(unknown_case_pointer = NULL)) V 
((known_case_pointer—>equidistant_known_next = NULL) A 
(unknown_case_pointer ^ NULL) A 
(unknown_case_pointer^equidistant_unknown_next = NULL))) 

/* this is the penultimate case to list */ 

fprintf (report_stream, "\\/} u 7os\n", and ? "and" : "or"); 

else 

fprintf (report_stream, " } , \n" ) ; 

known_case_pointer = known_case_pointer—>equidistant_known_next; 
} 

/* while there are still unknown cases to list ... */ 
while (unknown_case_pointer ^ NULL) { 

/* write the case name with appropriate trailing characters */ 

fprintf (report_stream, "{\\it u °/ s", shortjnames ? 

unknown_case_pointer^short_name : unknown_case_pointer^>name); 
if (unknown_case_pointer^equidistant_unknown_next = NULL) 

/* this is the last case to list */ 

fprintf (report_stream, " \\/} " ) ; 

else if (unknown_case_pointer^fequidistant_unknown_next-^> 
equidistant_unknown_next = NULL) 

/* this is the penultimate case to list */ 

fprintf (report_stream, "\\/} u 7os\n", and ? "and" : "or"); 

else 

fprintf (report_stream, "} , \n") ; 

unknown_case_pointer = unknown_case_pointer^equidistant_unknown_next; 
} 
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static void 

list_equidistant_cases_unknown_first( 
file report_stream, 
kase *known_case_pointer, 
kase *unknown_case_pointer, 
boolean short_names, 
boolean and) 

/* Lists the case pointed to by unknown_case_pointer (and any unknown equidistant cases), 
then the case pointed to by known_case_pointer (and any known equidistant cases). Writes 
short case names, if short_names is TRUE. Writes "and" between the last two cases in the 
list, if and is TRUE] writes "or", otherwise. */ 



{ 



/* while there are still unknown cases to list ... */ 
while (unknown_case_pointer =/= NULL) { 

/* write the case name with appropriate trailing characters */ 

fprintf (report_stream, "{\\it u °/ s", short_names ? 

unknown_case_pointer^>short_name : unknown_case_pointer^>name); 
if ((unknown_case_pointer—>equidistant_unknown_next = NULL) A 

(known_case_pointer = NULL)) 

/* this is the last case to list */ 

fprintf (report_stream, " \\/} " ) ; 

else if (((unknown_case_pointer^equidistant_unknown_next =/= NULL) A 
(unknown_case_pointer—>equidistant_unknown_next^>- 

equidistant_unknown_next = NULL) A 
(known_case_pointer = NULL)) V 
((unknown_case_pointer^equidistant_unknown_next = NULL) A 
(known_case_pointer =/= NULL) A 
(known_case_pointer—>equidistant_known_next = NULL))) 

/* this is the penultimate case to list */ 

fprintf (report_stream, "\\/} u 7os\n", and ? "and" : "or"); 

else 

fprintf (report_stream, "} , \n") ; 

unknown_case_pointer = unknown_case_pointer—>equidistant_unknown_next; 
} 
/* while there are still known cases to list ... */ 

while (known_case_pointer =/= NULL) { 

/* write the case name with appropriate trailing characters */ 

fprintf (report_stream, "{\\it u °/ s", short_names ? 

known_case_pointer^fshort_name : known_case_pointer—>name); 
if (known_case_pointer^equidistant_known_next = NULL) 

/* this is the last case to list */ 

fprintf (report_stream, " \\/} " ) ; 
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else if (known_casejpointer^>equidistant_knownjnext-^equidistant_knownjnext = NULL) 
/* this is the penultimate case to list */ 
fprintf (report_stream, "\\/} u /os\n", and ? "and" : "or"); 

else 

fprintf (report_stream, " } , \n" ) ; 

known_case_pointer = known_case_pointer—>equidistant_knownjnext; 
} 
} 

static void 

list_ equidistant_cases ( 

file report_stream, 
kase *known_case_pointer, 
kase *unknown_case_pointer, 
boolean unknown_first, 
boolean shortjnames, 
boolean and) 

/* Lists the case pointed to by known_case_pointer (and any known equidistant cases) and the 
case pointed to by unknown_case_pointer (and any unknown equidistant cases). Lists the 
unknown cases first, if unknown_first is TRUE. Writes short case names, if short_names is 
TRUE. Writes "and" between the last two cases in the list, if and is TRUE] writes "or", 
otherwise. */ 



{ 



} 



if (unknown_first) 

list_equidistant_casesjunknown_ftrst(report_stream, known_casejpointer, 
unknown_case_pointer, short_names, and)] 
else 

list_equidistant_cases_known_first(report_stream, known_case_pointer, 
unknown_case_pointer, short_names, and); 



static void 

state_ opinion ( 

file report_stream, 
result * result _pointer, 
kase *known_case_pointer, 
kase *unknown_case_pointer, 
boolean unknown_first) 

/* States its opinion: that, following the cases pointed to by known_case_pointer and 
unknown_case_pointer, the result will be that which is pointed to by resultjpointer. Lists 
the unknown cases first, if unknown_first is TRUE. */ 



{ 



fprintf (report_stream, " f ollowing u \\f renchspacing\n."); 

list_equidistant_cases(report_stream, known_case_pointer, unknown_case_pointer, 
unknown.first, FALSE, TRUE); 

fprintf (report_stream, " Wnonf renchspacing %°/.\n" 

" %s . \n\n" , resultjpointer—* string) ; 
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static void 

state_counter_opinion( 

file report_stream, 
result * result jpointer, 
kase *known_case_pointer, 
kase *unknown_case_pointer, 
boolean unknown_first) 

/* States a counter opinion: that, if the cases pointed to by known_case_pointer and 
unknown_case_pointer are followed, the result will be that which is pointed to by 
result jpointer. Lists the unknown cases first, if unknown_first is TRUE. */ 



{ 



} 



boolean plural = FALSE; 

fprintf (report_stream, "%s u If u \\f renchspacing\n", Skip); 

list_equidistant_cases(report_stream, known_case jpointer, unknown_case jpointer, 
unknown_first, FALSE, FALSE) ; 

if (known_casejpointer =/= NULL) { 
if (unknown_casejpointer =/= NULL) 

plural = TRUE; 
else if (known_case_pointer^equidistant_known_next =/= NULL) 
plural = TRUE; 
} else if (unknown_case_pointer =/= NULL) 

if (unknown_case_pointer^equidistant_unknown_next =/= NULL) 
plural = TRUE; 

fprintf (report_stream, " u \\nonf renchspacing\n" 
"°/»s u f ollowed u then u °/oS . \n\n" , 
plural ? "are" : "is" , resultjpointer—* string); 



static cardinal 
number _of_similarities ( 

matrix_element *matrix_pointer, 

vector ^element ^-vector jpointer) 

/* Returns the number of similarities in attribute value pairs between a leading case and the 
instant case (their attribute values are pointed to by matrixjpointer and vectorjpointer, 
respectively), where both cases have known attribute values. */ 



{ 



cardinal count = 0; 

/* while there are still attribute values to compare ... */ 

while {matrixjpointer ^ NULL) { 

if ((matrixjpointer^attributejvalue =/= UNKNOWN) A 

(matrixjpointer— mttributejvalue = vector 'jpointer^f attribute jvalue)) 

/* the corresponding attribute values are identical and known */ 

count++; 



reporter. c 185 



matrix_pointer = matrixjpointer^casejnext; 
vector 'jpointer = vector '.pointers-next; 

} 

return count; 

} 

static void 

list_similarities( 

file report_stream, 
matrix_element * matrixjpointer, 
vector ^element ^-vector jpointer, 
attribute * attributejpointer, 
cardinal count) 

/* Lists the similarities between a leading case and the instant case (their attribute values are 
pointed to by matrixjpointer and vector '.pointer, respectively), where both cases have known 
attribute values, by writing the appropriate string (yes or no) for the similar attributes. 
* attributejpointer is the head of the list of attributes for this area, count is the number of 
similarities. */ 



{ 



/* while there are still attribute values to compare, and not all of the similarities have been 
listed ... */ 

while ((attributejpointer =/= NULL) A (count =/= 0)) { 

if ((matrixjpointer— >attribute_value =/= UNKNOWN) A 

(matrixjpointer^attributejvalue = vectorjpointer^attributejvalue)) { 

/* the corresponding attribute values are identical and known, so write the relevant 
string with appropriate trailing characters */ 

if (count = 1) 

Write(report_stream,matrixjpointer—>attribute_value = YES ? 

attribute jpointer^yes : attribute jpointer—mo, " An", 1, Hang); 
else if (count = 2) 

Write(report_stream,matrix_pointer—>attribute_value = YES ? 

attributejpointer— >yes : attributejpointer— >no, " ; u and", 1, Hang); 
else 

Write(report_stream,matrix_pointersattribute_value = YES ? 

attribute_pointer—>yes : attributejpointer— >no, " ; ", 1, Hang); 

count — ; 

} 

matrixjpointer = matrixjpointer^casejnext; 
vector jpointer = vector jpointer^next; 
attributejpointer = attributejpointer^next; 
} 



186 §12 The Reporter module 



static cardinal 
number_of_known_differences( 

matrix_element * matrixjpointer, 

vector ^element ^vector 'jpointer) 

/* Returns the number of differences in attribute value pairs between a leading case and the 
instant case (their attribute values are pointed to by matrixjpointer and vectorjpointer, 
respectively), where the leading case has a known attribute value. */ 



{ 



cardinal count = 0; 

/* while there are still attribute values to compare ... */ 

while {matrixjpointer ^ NULL) { 

if ((matrixjpointer— >attribute_value =/= UNKNOWN) A 

(matrixjpointer^attributejvalue =/= vector jpointer^-attributejvalue)) 

/* the corresponding attribute values are different, and the leading case's value is 
known, so increment the count */ 

count++; 

matrixjpointer = matrixjpointer^casejnext; 
vector jpointer = vector •jpointer—ynext; 

} 

return count: 



} 



static void 

list_known_differences( 

file report_stream, 
matrix_element * matrixjpointer, 
vector ^element ^-vector jpointer, 
attribute * attribute jpointer, 
cardinal count) 

/* Lists the differences between a leading case and the instant case (their attribute values are 
pointed to by matrixjpointer and vector jpointer, respectively), where the leading case has 
a known attribute value, by writing the appropriate string (yes or no) for the different 
attributes. * attribute jpointer is the head of the list of attributes for this area, count is the 
number of differences. */ 

{ 

/* while there are still attribute values to compare, and not all of the differences have been 
listed ... */ 

while ((attribute_pointer =/= NULL) A (count =/= 0)) { 

if ((matrix_pointer^attribute_value =/= UNKNOWN) A 

(matrixjpointer— mttributejvalue =/= vector_pointer^>attribute_value)) { 

/* the corresponding attribute values are different, and the leading case's value is 
known, so write the relevant string with appropriate trailing characters */ 

if (count = 1) 

Write(report_stream,matrix_pointer^attribute_value = YES ? 

attribute jpointer— ryes : attribute jpointer ■— >no, " . ", 1, Hang); 
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else if (count = 2) 

Write(report_stream,matrix_pointer—>attribute_value = YES ? 

attribute jpointer^yes : attribute jpointer^no, " ; u and", 1, Hang); 
else 

Write(report_stream,matrix_pointersattribute_value = YES ? 

attributejpointer— >yes : attributejpointer— >no, " ; ", 1, Hang); 
count — ; 

} 

matrixjpointer = matrixjpointer^casejnext; 
vector jpointer = vector '.pointers-next; 
attributejpointer = attribute jpointer^next; 



} 



static cardinal 
number _ojjunknowns( 

matrix_element * matrixjpointer) 

/* Returns the number of UNKNOWNS in the leading case whose attribute values are pointed 
to by matrixjpointer. */ 



{ 



cardinal count = 0; 

/* while there are still attribute values to check ... */ 

while {matrixjpointer ^ NULL) { 

if (matrixjpointersattributejvalue = UNKNOWN) 

count++; 
matrixjpointer = matrixjpointer^casejnext; 

} 

return count; 



} 



static void 

list_unknowns( 

file report_stream, 
matrix_element * matrixjpointer, 
attribute * attributejpointer, 
cardinal count) 

/* Lists the UNKNOWN string for each unknown attribute in the leading case whose attribute 
values are pointed to by matrixjpointer. * attributejpointer is the head of the list of attributes 
for this area, count is the number of UNKNOWNS. */ 



{ 



/* while there are still attribute values to compare, and not all of the UNKNOWNS have 
been listed ... */ 

while ((attributejpointer =/= NULL) A (count =/= 0)) { 

if (matrixjpointer— ^attribute jvalue = UNKNOWN) { 
if (count = 1) 

Write(report_stream, attributejpointer— ^unknown, " . ", 1, Hang); 
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else if (count = 2) 

Write (report_stream, attribute_pointer^unknown, " ; u and", 1, Hang); 
else 

Write(report_stream, attribute_pointer^mnknown, " ;", 1, Hang); 
count — ; 

} 

matrixjpointer = matrixjpointer^casejnext; 
attributejpointer = attribute jpointer^next; 
} 
} 

static cardinal 
number_of_differences( 

vector ^element *vector_pointer_X, 

vector ^element *vector_pointer_ Y) 

/* Returns the number of differences in attribute value pairs between two fact vectors. */ 

{ 

cardinal count = 0; 

/* while there are still attribute values to compare ... */ 

while [vector _pointer_X ^ NULL) { 

if (vector jpointer_X—>-attribute_value =/= vector _pointer_Y^ attribute jvalue) 

count++; 
vector _pointer_X = vector jpointer_X^>-next; 
vector _pointer_Y = vector jpointer _Y ^>next\ 

} 

return count; 

} 

static void 

list_new_differences( 

file report_stream, 

vector ^element ^vector ^pointer, 

vector ^element *original_vector_pointer, 

attribute * attributejpointer, 

cardinal count) 

/* Lists the differences between an instantiation or hypothetical and the uninstantiated 
and unhypothesized instant case (their attribute values are pointed to by vector jpointer 
and originaljvectorjpointer, respectively), by writing the appropriate string (yes, NO or 
unknown) for the different attributes. * attributejpointer is the head of the list of attrib- 
utes for this area, count is the number of differences. */ 



{ 



/* while there are still attribute values to compare, and not all of the differences have been 
listed ... */ 

while ((attributejpointer =/= NULL) A (count =/= 0)) { 

if (vector_pointer—>attributejvalue =/= originaljvector_pointer^>attribute_value) { 

/* the corresponding attribute values are different, so write the relevant string with 
appropriate trailing characters */ 
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if (count = 1) 

Write(report_stream,vector_pointer^attributejvalue = YES ? 

attribute_pointer—>yes ; vector •.pointer—) attribute jvalue = NO ? 
attribute_pointer—>no ; attributejpointer^funknown, " . ", 1, Hang); 
else if (count = 2) 

Write(report_stream,vector_pointer—>attributejvalue = YES ? 

attribute jpointer^yes ; vectorjpointer^>attribute_value = NO ? 
attributejpointer^no ; attribute_pointer—>unknown, " ; u and", 1, Hang); 
else 

Write(report_stream,vector_pointer^attribute_value = YES ? 

attribute jpointer^yes ; vectorjpointer^attributejvalue = NO ? 
attribute_pointer—>no ; attributejpointer—^unknown, " ; ", 1, Hang); 
count — ; 

} 

vector jpointer = vector ^pointer— ynext; 

original_vector_pointer = original jvectorjpointer^next; 

attributejpointer = attribute jpointer '^next; 

} 
} 

static void 

summarize_case ( 

file report_stream, 

kase ^casejpointer, 

boolean writtenjinkingjparagraph, 

boolean verbose) 

/* Writes the name of the case pointed to by casejpointer with its citation in a footnote. 
Summarizes the case, if verbose is TRUE. If writtenjinkingjparagraph is TRUE, a brief 
paragraph was just written linking the previous case with this case (the two cases are 
equidistant). */ 



{ 



if (-i case jpointer ■— » summarized) { 

/* the case has not been summarized yet */ 

if (writtenjinkingjparagraph) 

/* the case's citation has already been footnoted in the linking paragraph */ 

fprintf (report_stream, "In u \\f renchspacing\n" 
"{\\it u °/ s]-\\nonf renchspacing,\n.", 
casejpointer^ short jname) ; 

else { 

fprintf (report_stream, "In u \\f renchspacing\n" 

"{\\it u °/os}\\nonf ren.chspacin.g,y»°/An" 

"\\footnote{%s.}\n", 

casejpointer— mame, casejpointer— ^citation) ; 
Write_Year_and_Court(report_stream, casejpointer, 1); 
fprintf (report_stream, " ,\n"); 

} 
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if (verbose) { 

if (casejpointer^fsummary =/= NULL) { 

Write[report_stream, case_pointer^summary, "\n", 1, Hang); 
case _pointer—> summarized = TRUE; 
} else 

fprintf (report_stream, "\n"); 
} else 

Write(report_stream, " [summary] An", Empty_String, 1, Hang); 

} else 

/* the case has already been summarized */ 

fprintf ' (report_stream, "Details u of u \\f renchspacing\n" 
"-[\\it u y»s\\/} u \\nonf renchspacing\n" 
" are u summar ized u above . \n" , 
case_pointer—>short_name) ; 
} 

static void 

list_similarities_and_differences( 
file report_stream, 
kase *case_pointer, 
attribute *attribute_head, 
vector ^element *facts_head, 
string instant_case_type, 
boolean neighbour, 
boolean written_linking_paragraph, 
boolean unknown_list_to_follow, 
boolean verbose) 

/* Cites the case pointed to by casejpointer, and lists the similarities between that case 
and the instant case (whose attribute values are pointed to by factsjiead). Summar- 
izes the case, if verbose is TRUE. instant_case_type is either "instant", "instantiated" or 
"hypothetical". If neighbour is TRUE, this case is a nearest neighbour; otherwise, it is a 
nearest other. If writtenjinkingjparagraph is TRUE, a brief paragraph was just written link- 
ing the previous case with this case (the two cases are equidistant). If unknown_list_to_follow 
is TRUE, an invocation of list_unknowns() will immediately follow this invocation of 
list_similarities_and_differences() . * / 



{ 



cardinal count; 

if (-iwrittenjinkingjparagraph) 

/* a linking paragraph has not just been written */ 

fprintf (report_stream, "7 s u ", Skip); 
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if (case_pointer—>summary =/= NULL) 

/* this case has a summary, so write the case name (with its citation in a footnote) and 
the summary */ 

summarize_case(report_stream, casejpointer, written_linking_paragraph, verbose)] 

if (Is_Zero_Subdistance(case_pointer^metrics. distance. known)) 

/* there is no known distance between this case and the instant case */ 

if (Is_Zero_Subdistance{case_pointer— ^metrics. distance. unknown)) { 

/* there is no unknown distance between this case and the instant case */ 

fprintf (report_stream, 

"The u °/oS u case u is u on u all u f ours u with u \\f renchspacing\n." , 
instant_case_type) ; 
if (casejpointer^summary ^ NULL) 
fprintf ( report _stream, 

"{\\it u °/os}\\null\\nonf renchspacingAn", 
casejpointer^ short jname) ; 
else 

/* the case has no summary, so its citation has not yet been footnoted */ 

fprintf ( report_stream 1 

"{\\it u °/os}\\null\\nonf renchspacing.7o°/ \n" 
"\\footnote{y„s.}\n", 

casejpointer^name, casejpointer—* citation) ; 
} else { 

/* there is some unknown distance between this case and the instant case */ 

fprintf \report_stream, "The u °/ s u case u {\\it u may\\/}- u be u " 

"on u all u f ours u with u \\frenchspacing\n", instant_case_type); 
if (casejpointer^summary =/= NULL) 

fprintf (report_stream, "{\\it u 7 s\\/}\\nonf renchspacing" , 
casejpointer— >short_name) ; 
else 

/* the case has no summary, so its citation has not yet been footnoted */ 

fprintf (report_stream, "{\\it u / s\\/}\\n.onf renchspacing°/ /o\n" 
"Wfootnote-C'/.s.}", 
casejpointer^name, casejpointer ■^citation) ; 

if (unknown_list_to_follow) 

/* a list of unknown differences follows immediately */ 

fprintf (report_stream, " but\n" ) ; 

else 

/* a statement that this case would have been followed (instead of the nearest 
neighbour) follows — and a list of unknown differences follows that */ 

fprintf ( report_stream, " u and " ) ; 
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} else { 

/* there is some known and/or unknown distance between this case and the instant 
case */ 

count = number_of_similarities(case_pointer—>matrix_head 1 facts_head); 
if (count =/= 0) { 

fprintf ' (report_stream, "There u " ) ; 

if (neighbour) 

/* characterize the similarities as "extremely significant" (one), "very signific- 
ant" (two), or just "significant" (three or more) */ 

switch (count) { 
case 1: 

fprintf (report_stream, 

"is u one u extremely u signif icant u similarity\n"); 
break; 
case 2: 

fprintf (report_stream, 

"are u two u very u signif icant u similarities\ii"); 
break; 
default : 

fprintf (report_stream, 

"are u several u signif icant u similarities\n"); 
break; 

} 
else 

switch (count) { 
case 1: 

fprintf (report_stream, 

"is u one u similarity\n"); 
break; 
case 2: 

fprintf (report_stream, 

"are u two u similarities\n"); 
break; 
default : 

fprintf (report_stream, 

"are u several u similarities\n."); 
break; 

} 
fprintf (report_stream, "between u theu°/oS u caseuand u \\f renchspacing\n" , 
instant_case_type) ; 

if (case_pointer^fSummary ^ NULL) 

fprintf '(report _stream, "{\\it u 7 s\\/}\\null\\norif renchspacing: \n" , 
case_pointer^fshort_name) ; 
else 

/* the case has no summary, so its citation has not yet been footnoted */ 

fprintf (report_stream 1 "{\\it u /os\\/}\\null\\norif renchspacing :%°/An" 
"\\footnote{°/„s.}\n", 
case_pointer—>name, case _pointer^> citation) ; 
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/* list the similarities between this case and the instant case */ 

list_similarities(report_stream, casejpointer^nnatrixjiead, factsjiead, 
attribute_head, count) ; 

} 

count = number_ofJtnown_differences(case_pointer^matrixJiead, factsjiead) ; 

if (neighbour) 

fprintf (report_stream, 

"However , u theu°/oS u case u is u not u on u all u fours u " 

"with u \\f renchspacing\n" 

"{\\it u 7os}\\null\\nonfrenchspacing.\n", 

instant_casejype, case_pointer^short_name) ; 
else { 

if (count =/= 0) { 

/* characterize the differences as "extremely significant" (one), "very signific- 
ant" (two), or just "significant" (three or more) */ 

fprintf (report _stream 1 "However , u there u " ) ; 
switch (count) { 
case 1: 

fprintf (report_stream, 

"is u one u extremely u signif icant u dif f erence\n"); 
break; 
case 2: 

fprintf (report_stream, 

"are u two u very u signif icantudif ferences\n"); 
break; 
default : 

fprintf (report_stream, 

"are u several u signif icant u dif ferences\n"); 
break; 

} 

fprintf (report_stream, "between u the u yoSucaseuandu\\frenchspacing\n", 

instant_case_type) ; 
fprintf ( report_stream 1 

"{\\it u °/os}\\null\\nonf renchspacingAn", 

case_pointer^>short_name) ; 

} 
} 

fprintf (report_stream, "In u that u case\n"); 

/* list the differences between this case and the instant case */ 

list_known_differences(report_stream, case_pointer—ymatrix_head, factsjiead, 
attribute_head, count); 
} 
} 
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static boolean 
has_less_known_distance ( 

kase *case_pointer_X, 

kase *case_pointer_Y) 

/* Returns TRUE, iff the case pointed to by case_pointer_X has less known distance than does 
that pointed to by case_pointer_Y. */ 

{ 

return ((case_pointer_X =/= NULL) A (case_pointer_Y =/= NULL) A 
((case_pointer_X—>metrics. distance. known.inftnite < 

case_pointer_Y—>metrics. distance. known. infinite) V 
((case _pointer_X ^-metrics, distance. known, infinite = 

case_pointer_ Y—ymetrics. distance. known. infinite) A 
Is_Less(case_pointer_X—>metrics. distance, known, finite, 
case_pointer_Y—>metrics. distance, known, finite, 
Distance_Precisio n) ) ) ) ; 

} 

static void 

state_confidence( 

file report_stream, 
string short_name) 

/* States its confidence that the case called short_name should still be followed. */ 

{ 

fprintf (report_stream, " Nevertheless, u I u believe u that u \\f renchspacing\n" 

"{\\it u /os\\/} u \\nonfrenchspacing\n" 

" should u be u f ollowed. \n\n", short_name); 
} 

static boolean 

write _number_as_word ( 

file report_stream, 

cardinal number) 

/* Writes number: as a word, if number < 10; as a number, otherwise. Returns TRUE, iff 
number =/= 1: i.e. if the noun to follow should be plural. */ 



{ 



switch (number) { 
case 1: 

fprintf (report_stream, " one " ) ; 
break; 
case 2: 

fprintf (report_stream, "two"); 
break; 
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case 3: 

fprintf (report_stream, "three" ) ; 

break; 
case 4: 

fprintf (report_stream, "four"); 

break; 
case 5: 

fprintf (report_stream, " f ive " ) ; 

break; 
case 6: 

fprintf (report_stream, "six"); 

break; 
case 7: 

fprintf (report_stream, " seven" ) ; 

break; 
case 8: 

fprintf (report_stream, "eight " ) ; 

break; 
case 9: 

fprintf (report_stream, "nine " ) ; 

break; 
case 10: 

fprintf \report_stream, "ten"); 

break; 
default : 

fprintf (report_stream, "°/ u", number)] 

break; 

} 

return (number ^ 1); 



static void 

state_intransigence( 

file report_stream, 

kase *nearest_neighbour 1 

kase *nearest_other) 



/* Restates its opinion that the case pointed to by nearest_neighbour should be followed, and 
compares the relative importance of the courts that decided that case and the case pointed 
to by nearest _other. */ 

{ 

if ((nearest_neighbour^court_string = NULL) V (nearest_other^>court_string = NULL)) 

/* the nearest neighbour or the nearest other has no court, so make no comment about 
each case's relative importance */ 

fprintf ( report_stream, " \nConsequent ly , u " ) ; 
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else if (nearest_neighbour^>court_rank < nearest_other—>court_rank) 

/* the nearest neighbour was decided by a more important court than was the nearest 
other */ 

fprintf (report_stream, "Note / O s u that u \\f renchspacing\n" 
"-C\\it u y»s\\/} u \\n.onf renchspacing\n" 
" is u onlyua u decision u of \n" 
'7os\n" 

"and u not u asugooduauthority u as u a u case u decided u by\n" 
•7.sr/.\n" 

" like u \\f renchspacing\n" 

"{\\it u y»s}\\iiull\\non.f renchspacing. \n\n" 

" Consequently , u " , 

Is_Zero_Subdistance(nearest_other^metrics. distance. known) A 

Is_Zero_Subdistance(nearest_other^metrics. distance. unknown) ? 

" , u however , ": " u also", 

nearest_other^-short_name, nearest_other^fCourt_string, 

nearest_neighbour^>court_string, nearest_neighbour^-short_name) ; 

else if (nearest_neighbour^>court_rank > nearest_other—>court_rank) 

/* the nearest other was decided by a more important court than was the nearest 
neighbour */ 

fprintf (report_stream, "\nDespite u the u f act u that u \\f renchspacing\n" 
"-C\\it u y»s\\/} u \\nonf renchspacing\n" 
" is u a u decision u of \n" 
•7.s\n" 

" (and u better u authority u than u a u case u decided u by\n" 
"Xs7,7.\n» 

" like u \\f renchspacing\n" 

"{\\it u %s\\/}\\nonf renchspacing) , \n" , 
nearest_other^>short_name, nearest_other^-court_string, 
nearest_neighbour^>court_string, nearest_neighbour^>short_name) ; 

else if (nearest_neighbour^>court_string = nearest_other—>court_string) 

/* the nearest neighbour and the nearest other were decided by the same court */ 

fprintf (report_stream, "\nDespite u the u f act u that u \\f renchspacing\n" 
"-C\\it u y»s\\/} u \\nonf renchspacing\n" 
"and u \\f renchspacing\n" 
"{\\it u y»s\\/]- u \\nonf renchspacing\n" 
"are u both u decisions u of \n" 
l|0 /oS , \n" , nearest_other^>short_name, 
nearest_neighbour^>short_name, nearest_other^fCourt_string) ; 
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else 

/* the nearest neighbour and the nearest other were decided by different courts of the 
same rank */ 

fprintf (report_stream, "\nDespite u the u f act u that u \\f renchspacing\n" 
"-C\\it u y»s\\/} u \\nonf renchspacing\n" 
" is u a u decision u of \n" 
"°/„s\n" 

" (and u as u good u authority u as u a u case u decided u by\n" 
"7.s%y„\n" 

" like u \\f renchspacingXn" 

"{\\it u %s\\/}\\nonf renchspacing) , \n" , 
nearest_other^-short_name, nearest_other^>court_string, 
nearest_neighbour^>court_string, nearest_neighbour^>short_name) ; 

fprintf (report_stream, "there u is u nothinguiri u \\f renchspacingXn" 
"{\\it u °/ s\\/}u\\nonfrenchspacing\n" 
"to u warrant u any u change u in u my u conclusion.\n\n" , 
nearest_other^>short_name); 
} 

static boolean 

write Jinking _paragraph( 

file report_stream, 

kase *previous_case_pointer, 

kase *next_case_pointer) 

/* Writes a brief paragraph linking the previous case with the next case (the two cases are 
equidistant), if there is a next case. Puts the two cases into context (i.e. explains which 
is more important and why). Returns TRUE, if a paragraph is written, which means that 
the next paragraph should not include year and court information — information included 
in this linking paragraph. */ 



{ 



if (\\next_case_pointer =/= NULL) A 

(previous_case_pointer^>court_string ^ NULL) A 
(next_case_pointer—>court_string =/= NULL)) { 

/* the previous case and the next case are equidistant and both have a court string, so 
write a linking paragraph */ 

fprintf (report_stream, l|0 /oS u In u °/oU,\n.", Skip, next_case_pointer^year); 

if (previous_case_pointer—>court_string = next_case_pointer^-court_string) { 

/* the previous case and the next case were decided by the same court */ 

if (previous_case_pointer^>year = next_case_pointer^>year) 

/* the previous case and the next case were decided in the same year */ 

fprintf '(report .stream, "the u same u yearuiri u which u \\f renchspacingXn" 
"{\\it u °/os\\/} u \\nonf renchspacingXn" 
" was u decided , \n" , 
previous_case_pointer^fshort_name); 
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fprintf (report_stream, "°/,s\n" 

"also u decided u \\f renchspacing\n" 
"-[\\it u 7os}\\null\\nonf renchspacing. / 7o\n" 
"\\footnote{%s.}\n", 

next_case_pointer^fCourt_string, next_case_pointer—>name, 
next_case_pointer^citation) ; 

if (previous_case_pointer—>year =/= next_case_pointer^>year) { 

/* the previous case and the next case were decided in a different year; the 
previous case must be more recent than the next case (otherwise the next 
case would be earlier in the list than the previous case) */ 

fprintf (report_stream, " (Note, u however, u that u \\f renchspacingXn" 
"{\\it u °/os\\/} u \\nonfrenchspacing\n" 
" is u " , previous_case_pointer—yshort_name) ; 

if (write_number_as_word(report_stream, 

previous_case_pointer^year — next_case_pointer^year)) 
fprintf (report_stream, " u year s " ) ; 
else 

fprintf ( report_stream, " u year " ) ; 

fprintf (report_stream, " u niore u receiit u thanu\\f renchspacing\n" 
"{\\it u °/os}\\null\\nonf renchspacing. )\n", 
next_case_pointer^fshort_name) ; 

} 
} else if (jarevious_case_pointer^fCourt_rank = next_case_pointer^court_rank) { 

/* the previous case and the next case were decided by different courts of the same 
rank */ 

if (previous_case_pointer—>year = next_case_pointer^>year) 

/* the previous case and the next case were decided in the same year */ 

fprintf (report_stream, "the u same u year u in u which u \\f renchspacing\n" 
"{\\it u °/os\\/} u \\nonfrenchspacing\n" 
"was u decided u by\n" 

II <y ,_, it 

previous_case_pointer^short_name, 
previous_case_pointer^>court_string)\ 

fprintf (report_stream, "\\f renchspacing\n." 

"{\\it u 7os\\/}\\nonfrenchspacing°/o7o\n" 

"\\footnote{7.s.}\n" 

"was u decided u by\n" 

"7„s.\n" 

" (A u case u decided u by\n" 

"7.s\n" 

"is u as u good u authority u as u a u case u decided u by\n" 

"7oS", next_case_pointer^name, next_case_pointer^citation, 

next_case_pointer^fCourt_string, next_case_pointer^>court_string, 

previous_case_pointer^>court_string)\ 
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if (previous_case_pointer^year = next_case_pointer^>year) 

/* the previous case and the next case were decided in the same year */ 
fprintf (report_stream, " . )\n"); 

else { 

/* the previous case and the next case were decided in a different year; the 
previous case must be more recent than the next case (otherwise the next 
case would be earlier in the list than the previous case) */ 

fprintf ( report_stream, " °/,%\n " 

" like u \\frenchspacing\n" 

"{\\it u °/os\\/}\\nonf renchspacing; \n" 
"note , uhowever , u that u \\f renchspacing\n" 
"{\\it u °/os\\/} u \\nonfrenchspacing\n" 

previous_case_pointer^short_name, 
previous_case_pointer^short_name); 

if (write_number_as_word(report_stream, 

previous_case_pointer^year — next_case_pointer—>year)) 

fprintf (report_stream, " u year s " ) ; 
else 

fprintf ( report_stream, " u year " ) ; 

fprintf (report _stream 1 " u niore u receiit u thanu\\f renchspacing\n" 
"{\\it u °/os}\\null\\nonf renchspacing. )\n", 
next_case_pointer—>short_name) ; 
} 
} else { 

/* the previous case and the next case were decided by different courts of different 
ranks; the previous case must be more important than the next case, otherwise 
the next case would be earlier in the list than the previous case) */ 

if (previous_case_pointer—>year = next_case_pointer—>year) 

/* the previous case and the next case were decided in the same year */ 

fprintf (report_stream, "the u same u yearuin u which u \\f renchspacing\n" 
"{\\itu°/os\\/} u \\nonfrenchspacing\n" 
"was u decided u by\n" 

II «/ „ II 

previous_case_pointer—>short_name, 
previous_case_pointer^court_string); 

fprintf (report_stream, "\\f renchspacing\n" 

"{\\it u /os\\/}\\nonfrenchspacing°/o7o\n" 

"\\footnote{%s.}\n" 

"was u decided u by\n" 

"%s.\n" 

" (A u case u decided u by\n" 

"°/„s\n" 

"is u not u as u good u authority u as u a u case u decided u by\n" 

"%s", next_case_pointer^name, next_case_pointer^citation, 

next_case_pointer^>court_string, next_case_pointer^>court_string, 

previous_case_pointer^fCourt_string)\ 
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if (previous_case_pointer—>year = next_case_pointer^>year) 

/* the previous case and the next case were decided in the same year */ 
fprintf (report _stream 1 " . )\n"); 

else 

fprintf ( report_stream 1 " %°/o\n" 

" like u \\frenchspacing\n" 

"{\\itu°/os\\/}\\nonf renchspacing;\n", 
previous_case_pointer^>short_name); 

if (previous_case_pointer^year > next_case_pointer—>year) { 

/* the previous case is more recent than the next case */ 

fprintf (report_stream 1 "furthermore u \\frenchspacing\n" 
"{\\it u °/os\\/} u \\nonfrenchspacing\n" 
"is u ", next_case_pointer^>short_name); 

if (write_number_as_word(report_stream, 

previous_case_pointer—>year — next_case_pointer—>year)) 

fprintf (report_stream, " u year s " ) ; 
else 

fprintf ( report_stream, " u year " ) ; 

fprintf '(report _stream, " u older u than u \\frenchspacing\n" 
"{\\it u °/os}\\null\\nonf renchspacing. )\n", 
previous_case_pointer^>short_name); 

} else if (previous_case_pointer^year < next_case_pointer^>year) { 

/* the next case is more recent than the previous case */ 

fprintf (report _stream 1 "though u \\f renchspacing\n" 
"{\\it u °/os\\/} u \\nonfrenchspacing\n" 
"is u ", next_case_pointer^>short_name); 

if (write_number_as_word(report_stream, 

next_case_pointer^year — previous_case_pointer—>year)) 

fprintf (report_stream, " u year s " ) ; 
else 

fprintf ( report_stream, " u year " ) ; 

fprintf (report_stream 1 " u niore u receiit u thanu\\f renchspacing\n" 
"{\\it u °/os}\\null\\nonf renchspacing. )\n", 
previous_case_pointer^short_name); 

} 
} 

fprintf (report_stream, "\n"); 
return TRUE; 
} else 

/* no linking paragraph has been written */ 

return FALSE; 
} 



reporter. c 201 



static void 

handle _nearjanknown( 

file reportjstream, 

result * resultjpointer, 

result *nearest_resultjpointer, 

kase ^nearest jneighbour, 

boolean nearest jneighbourjsjknown, 

area *area_pointer, 

vector_element *factsjhead, 

string instant_casejtype, 

boolean neighbour, 

boolean verbose) 

/* Argues that the nearest unknown case of the result pointed to by resultjpointer would have 
been followed but for its unknown distance. */ 



{ 



kase * casejpointer; 

boolean written_linking_paragraph = FALSE; 

if {resultjpointer = nearest jresultjpointer) { 

fprintf (report jstream, "°/ s\\f renchspacingXn", Skip); 

list_equidistant_cases(report_stream, NULL, result_pointer^>nearestjanknown_case, 
FALSE, FALSE, TRUE); 

fprintf (reportjstream, " u \\nonfrenchspacing\n" 
"7oS u iri u which u /oS . \n\n" , 

result jpointer^nearest_unknown_case-^equidistant_unknownjnext = 
NULL? "is u another u case" : "are u other u cases", result_pointer—>-string); 

} 

/* for each nearest unknown case ... */ 

for (casejpointer = result_pointer^>nearestjanknown_case; casejpointer ^ NULL; 
casejpointer = case_pointer^>equidistantjanknownjaext) { 

list_similarities_and_differences(report jstream, casejpointer, 

area_pointer^> attribute Jiead, factsjhead, instant_case_type, neighbour, 
written_linkingjparagraph, FALSE, verbose); 

fprintf (report jstream, "\n" 

"I u would u have u suggested u that u \\f renchspacing\n" 
"-C\\it u y»s\\/} u \\n.onf renchspacing\n" 
"be u f ollowed u (instead u of u \\f renchspacing\n" , 
case_pointer^short_name) ; 

if (nearestjneighbourjisjknown) 

list_equidistant_cases(report jstream, nearest jneighbour, NULL, 
FALSE, TRUE, TRUE); 

else 

list_equidistant_cases(report jstream, NULL, nearest jneighbour, 
FALSE, TRUE, TRUE); 
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fprintf (report_stream, "Wnonf renchspacing)\n" 
" except u that\n" ) ; 

list_unknowns(report_stream, case_pointer^matrix_head, 

area_pointer^> attribute Jiead, number_of_unknowns(case_pointer^>-matrix_head)); 

if (^neighbour) 

state_intransigence(report_stream, nearestjneighbour, casejpointer); 

written_linking_paragraph = write_linking_paragraph(report_stream, casejpointer, 
casejpointer— >equidistant_unknown_next); 



} 



static void 

handle_nearest_known( 

file report_stream, 

result *resutt_pointer, 

result *nearest_result_pointer, 

kase ^-nearestjneighbour, 

area * area_pointer, 

vector ^element *facts_head, 

string instant_case_type, 

boolean verbose) 

/* Argues that the result should be same as that of the nearest known neighbour. Uses the 
nearest unknown neighbour too, if (but for its unknown distance) it would be the nearest 
neighbour. */ 



{ 



kase * casejpointer; 

boolean written_linking_paragraph = FALSE; 

if (has_less_known_distance(result_pointer^nearest_unknown_case, 
result_pointer^>nearest_known_case)) 

/* if not for its unknown distance, the nearest unknown neighbour would be the nearest 
neighbour, so base the argument on the nearest known and the nearest unknown 
neighbours */ 

state_opinion(report_stream, result .pointer, 
result_pointer—>nearest_known_case, 
result jpointer^>nearestjunknown_case, FALSE) ; 

else 

/* base the argument only on the nearest known neighbours */ 

state_opinion{report_stream, result jpointer, 

result jpointer^>nearest_known_case, NULL, FALSE) ; 

/* for each nearest known neighbour ... */ 

for {casejpointer = result_pointer—>nearest_known_case; casejpointer ^ NULL; 
casejpointer = case_pointer^>equidistant_known_next) { 

list_similarities_and_differences(report_stream, casejpointer, 

area_pointer^> attribute Jiead, jactsjiead, instant_case_type, TRUE, 
written_linking_paragraph, FALSE, verbose); 

fprintf (report_stream, "\n"); 



} 
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if (-iIs_Zero_Distance(case_pointer—ymetrics. distance)) 

/* the instant case is not on all fours with the case */ 
state_confidence(report_stream, casejpointer^fshortjname); 

written_linking_paragraph = write Jinking jparagraph(report_stream, casejpointer, 

casejpointer^equidistantjtnownjnext); 

} 

if (has Jess Jznown_distance(result_pointer—>nearest_unknown_case, 
resultjpointer^>nearestJtnown_case)) { 

/* if not for its unknown distance, the nearest unknown neighbour would be the nearest 
neighbour */ 

handle _near_unknown(report_str earn, resultjpointer, nearest_resutt_pointer, 
nearest jneighbour, TRUE, areajpointer, 
factsjiead, instant_casejype, TRUE, verbose); 
fprintf (report_stream, "\n"); 
} 



static void 

handlejnearest_unknown( 
file report_stream, 
result * resultjpointer, 
area * areajpointer, 
vector_element *facts_head, 
string instant_case_type, 
boolean verbose) 

/* Argues that the result should be same as that in the nearest unknown neighbour. Uses the 
nearest known neighbour too. */ 



{ 



kase * casejpointer; 

boolean writtenjinkingjparagraph = FALSE; 

cardinal count; 

/* base the argument on the nearest unknown and the nearest known neighbours */ 

state_opinion(report_stream, resultjpointer, 
result ^pointer— >nearest_known_case, 
result '^pointer— ynearest_unknown_case, TR UE) ; 

/* for every nearest unknown neighbour ... */ 

for (casejpointer = resultjpointer— mearest_unknown_case; casejpointer =/= NULL; 
casejpointer = casejpointer^equidistantjanknownjnext) { 

list_similarities_and_differences(report_stream, casejpointer, 

areajpointer^> attribute Jiead, factsjiead, instant_case_type, TRUE, 
writtenjinkingjparagraph, TRUE, verbose); 

count = number_of_unknowns(casejpointer^nnatrixJiead); 
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if (count =/= 0) { 

fprintf (report_stream, "Furthermore , u \n" ) ; 

list_unknowns(report_stream, casejpointer^nnatrixjiead, 
areajpointer^attributejiead, count) ; 

} 

fprintf (report_stream, "\n"); 

state_confidence(report_stream, case_pointer—>shortjname); 

writtenjinkingjparagraph = write Jinking_paragraph(report_stream, casejpointer, 
case_pointer—>equidistant_unknownjnext); 
} 

/* for every nearest known neighbour ... */ 

writtenjinkingjparagraph = FALSE] 

for (casejpointer = resultjpointer—>nearestJtnown_case; casejpointer ^ NULL] 
casejpointer = case_pointer^>equidistant_knownjnext) { 

list_similarities_and_differences(report_stream, casejpointer, 

ar ea jpointer^* attribute Jiead, factsjiead, instant_casejype, TRUE, 
writtenjinkingjparagraph, FALSE, verbose); 

fprintf (report_stream, "\n"); 

if (-iIs_ZeroJDistance(case_pointer—ymetrics. distance)) 

state_confidence(report_stream, case_pointer^>short_name); 



} 



writtenjinkingjparagraph = write Jinking _paragraph(report_stream, casejpointer, 
case_pointer—>equidistantJtnown_next); 



static void 

handle jnearest_others( 

file report_stream, 

result * result jpointer, 

result *nearest_result jpointer, 

kase *nearest_other, 

boolean nearest_otherJsJtnown, 

area * area_pointer, 

vector_element *factsjiead, 

string instant_casejype, 

boolean verbose) 

/* Make a counter argument that the result should be same as that of the nearest known other. 
Uses this result's nearest unknown other too, if (but for its unknown distance) it would be 
the nearest neighbour. */ 
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kase * casejpointer; 

boolean written_linking_paragraph = FALSE; 

cardinal count; 

if ((result_pointer—>nearest_known_compared_withjunknown = FURTHER) V 
has_less_known_distance(resultjpointer^>-nearestjunknown_case, 
nearest_other)) { 

/* the nearest unknown other is the nearest other or if not for its unknown distance, 
the nearest unknown other would be the nearest neighbour */ 

state_counter_opinion(report_stream, resultjpointer, 
result jpointer^nearest_known_case, 
result _pointer^>nearestjunknown_case, TRUE); 

if (has_less_known_distance(result_pointer—>nearest_unknown_case, 
nearest_other)) { 

/* if not for its unknown distance, the nearest unknown other would be the nearest 
neighbour */ 

handle_near_unknown(report_stream, resultjpointer, nearest jresultjpointer, 
nearest_other, nearest_other_is_known, areajpointer, 
factsjiead, instant_case_type, FALSE, verbose); 

} else 

/* for every nearest unknown other ... */ 

for (casejpointer = result_pointer^>nearest_unknown_case; 
casejpointer ^ NULL; 
casejpointer = case_pointer—>equidistantjunknown_next) { 

list_similarities_and_differences(report_stream, casejpointer, 

areajpointer— >attribute_head, factsjiead, instant_case_type, FALSE, 
written_linking_paragraph, FALSE, verbose); 

count = number_of_unknowns(casejpointer—>matrix_head); 

if (count =/= 0) { 

fprintf (report_stream, "Furthermore , u \n" ) ; 

listjunknowns(report_stream, casejpointer^matrixjiead, 
areajpointer^attributejiead, count) ; 

} 

state_intransigence(report_stream, nearest_other, casejpointer); 



} 
} else 



written_linking_paragraph = write_linking_paragraph(report_stream, casejpointer, 
case _pointer—> equidistant junknownjnext); 



/* the nearest known other is the nearest other, so base the counter-opinion only on 
the nearest known other */ 

state_counter_opinion(report_stream, resultjpointer, 

result jpointer^>nearest_known_case, NULL, FALSE) ; 
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written_linking_paragraph = FALSE; 

for (casejpointer = result_pointer—>nearest_known_case; casejpointer ^ NULL] 
casejpointer = case_pointer^>equidistant_knownjnext) { 

/* for every nearest known other ... */ 

list_similarities_and_differences(report_stream, casejpointer, 

areajpointer^>attribute_head, jactsjiead, instant_case_type, FALSE, 
written_linking_paragraph, FALSE, verbose); 

state_intransigence(report_stream, nearest_other, casejpointer) ; 

writtenjinkingjparagraph = write_linkingjparagraph(report_stream, casejpointer, 



casejpointer^ equidistant_known_next); 



} 



static void 

initialize jnearestjmetrics ( 

cardinal * minimum_known_differences, 
floating jpoint *minimum_association_coejficient, 
floating jpoint * minimumjweighted_association_coefflcient, 
floating jpoint *max_correlation_coejficient, 
floating jpoint *maxjweighted_correlation_coejficient, 
cardinal number _oj_attributes) 

/* Initializes the minimum and maximum metric variables. */ 

{ 

*minimum_known_differences = number _oj_attributes; 

*minimum_association_coejficient = 1.0; 

*minimumjweighted_association_coejficient = 1.0; 

*max_correlation_coejficient = —1.0; 

*maxjweighted_correlation_coejficient = —1.0; 

} 

static void 

find _nearest_metrics( 

metrics_type metrics, 

cardinal * minimum_known_differences, 

floating jpoint *minimum_association_coejficient, 

floating jpoint *minimumjweighted_association_coejficient, 

floating jpoint *max_correlation_coejficient, 

floating jpoint *maxjweighted_correlation_coejficient, 

boolean weighted_association_coejficient) 

/* Checks metrics against the various minimum and maximum values found so far, and changes 
each minimum/maximum if the relevant metric is less/more. */ 

{ 

if (metrics. number _ofiknown_diflerences < *minimum_known_differences) 
*minimum_known_differences = metrics, number _ofiknown_diflerences; 

if (metrics. number_of_knownjpairs = 0) { 

*minimum_known_differences = 0; 
*minimum_association_coejficient = 0.0; 
^minimum _weighted_association_coefflcient = 0.0; 
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} else { 



if (Is_Less((floating_point) metrics. number_of_known_differences / 
metrics. number_of_known_pairs, 
*minimum_association_coefficient, Precision)) 
*minimum_association_coefficient = 

(floating jpoint) metrics. number _of_known_differences / 
metrics. number_of_known_pairs; 

if (weighted_association_coefflcient) 

if (Is_Less(metrics.weighted_association_coefficient, 

*minimumjweighted_association_coefficient, Precision)) 
*minimum_weighted_association_coejflcient = 
metrics.weighted_association_coefflcient; 

if (-^metrics. correlation_coejficient.meaningless) { 

if (Is_Less(*max_correlation_coejftcient, 

metrics. correlation_coejficient.unweighted 1 Precision)) 
*max_correlation_coejftcient = 

metrics. correlation_coefflcient.unweighted; 

if (Is_Less(*max_weighted_correlation_coefficient, 

metrics. correlation_coejficient.weighted, Precision)) 
*maxjweighted_correlation_coejflcient = 

metrics. correlation_coefflcient. weighted ; 



} 



static boolean 

matches _nearest_neighbour( 
kase * casejpointer ^ 

kase **nearest_knownjneighbour_pointer, 
kase **nearestjunknown_neighbourjpointer) 



/* Returns TRUE (and adjusts the appropriate pointer so as to point to the next equidistant 
case), if casejpointer points to a nearest neighbour (known or unknown). */ 



{ 



if (casejpointer = *nearest_known_neighbour_pointer) { 

* nearest_known_neighbour_pointer = 

(*nearest_known_neighbourjpointer)-^equidistant_known_next; 
return TRUE; 

} else if (casejpointer = * nearest janknownjneighbourjpointer) { 

* nearest janknownjneighbourjpointer = 

(^■nearest janknown_neighbour_pointer)-^ equidistant janknownjnext; 
return TRUE; 
} else 

return FALSE: 
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static void 

log_case_number_and_name ( 
file log_stream, 
cardinal casejnumber, 
string case_name) 



fprintf (log_stream, "C°/oU°/ s u %s", case_number, case_number < 10 ? " u " : "", casejname); 



static void 

log_case ( 

file log_stream, 
kase * casejpointer, 
result * resultjpointer, 
boolean additional, 
cardinal level, 
string * subheading) 

/* Writes, to the log file, details of the case pointed to by casejpointer. Writes a character 
before the case name: "*", if additional is TRUE and resultjpointer is not NULL (i.e. the 
case is suggested by an extra metric, but is not a neighbour, and has a different result to 
the nearest result); "+", if additional is TRUE (i.e. the case is suggested by an extra metric, 
but is not a neighbour); "-", otherwise (i.e. the case is not suggested by the metric, but is 
a nearest neighbour) . Writes the result in parentheses after the case name, if resultjpointer 
is not NULL. */ 

{ 

if (* subheading ^ NULL) { 

Indent(log_stream, level + 1); 

fprintf (log _stream, "%s : \n" , * subheading); 

* subheading = NULL; 

} 

Indent(log_stream, level + 1); 

fprintf (log _str earn, " uu 7,s u ", additional ? resultjpointer ^ NULL ? "*" : "+" : "-"); 

log_case_number_andjname(log_stream, case_pointer—>number, case_pointer—>short_name) ; 

if (resultjpointer ^ NULL) 

fprintf (log_stream, " u (°/os)", result_pointer—>identifter); 
fprintf (log_stream, "\n"); 
} 

static void 

log_case_if_necessary ( 
file log_stream, 
result * resultjpointer, 
result *nearest_result_pointer, 
kase * casejpointer, 
kase **nearest_known_case_pointer, 
kase ** nearest junknown_case_pointer, 
cardinal level, 
boolean neighbour, 
string sheading, 
string ^subheading, 
boolean * different jresult) 
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/* Writes, to the log file, details of those cases about which the known/unknown distance 
and the extra similarity measures disagree. Sets differ entjresult to TRUE, if an alternative 
metric suggests, as a nearest neighbour, a case which is not a nearest neighbour and which 
has a result different from the nearest result. */ 



{ 



if {neighbour) { 

/* the alternative metric suggests this as a nearest neighbour */ 

if (-imatches_nearest_neighbour (casejpointer, 

nearest_known_casejpointer, nearest_unknown_case_pointer)) { 

/* it isn't a nearest neighbour, so log it as an additional case */ 

if (* heading ± NULL) { 
Indent(log_stream, level); 
fprintf ' (log_stream, "°/ s : \n\n", sheading); 
sheading = NULL] 

} 

if (resultjpointer ^ nearestjresultjpointer) { 

/* the result of this case is not the nearest result, so include the result in the 
log */ 

log_case(log_stream, casejpointer, result .pointer, TRUE, level, subheading); 
if (different jresult =/= NULL) 
* different_result = TRUE; 

} else 

/* the result of this case is the nearest result, so don't include it in the log */ 

log_case(log_stream, casejpointer, NULL, TRUE, level, subheading); 
} 

} else if (matchesjnearestjneighbour(casejpointer, 

nearest_known_case_pointer, nearest_unknown_case_pointer)) { 

/* the alternative metric does not suggest this case as a nearest neighbour, but it is a 
nearest neighbour, so log it as a missing case */ 

if (sheading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s:\n\n.", sheading); 

sheading = NULL; 

} 

/* the result of this case is the nearest result, so don't include it in the log */ 

log_case(log_stream, casejpointer, NULL, FALSE, level, subheading); 
} 



} 
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static void 

implement_safeguards ( 
file log_stream, 
area * areajpointer, 
string instant_case_type, 
cardinal level) 

/* Implements the safeguards based on the extra similarity measures, and issues a warning in 
each of the following circumstances: the weighted association coefficients suggest that a case, 
with a different result than that of the nearest neighbour, ought to be the nearest neighbour; 
the weighted correlation coefficients suggest that a case, with a different result than that 
of the nearest neighbour, ought to be the nearest neighbour; an ideal point suggesting a 
different result is at least as near to the instant case as is the nearest neighbour; a centroid 
suggesting a different result is at least as near to the instant case as is the nearest neighbour; 
or the specified directions suggest a different result or results. */ 



result ^resultjpointer, 

* equidistantjpointer; 
kase * casejpointer, 

*nearest_known_case_pointer, 
*nearest_unknown_case_pointer; 
cardinal minimum_known_differences; 
floating_point minimum_association_coefficient, 

minimum_weighted_association_coefficient, 

max_correlation_coefficient, 

max_weighted_correlation_coefficient; 
string heading = "Safeguards", 

subheading = NULL; 
char message[Max_Error_Message_Length] ; 
boolean weighted_different_result = FALSE, 

ideal_point_different_result = FALSE, 

centroid_different_result = FALSE, 

specified_direction_different_result = FALSE; 

initialize_nearest_metrics{k,minimum_known_dijferences, 

&iminimum_association_coefficient, &£minimum_weighted_association_coefficient, 
!kmax_correlation_coefficient, &zmax_weighted_correlation_coefficient, 
area_pointer^number_of_attributes); 

for (resultjpointer = areajpointer— >result_head; resultjpointer ^ NULL; 
resultjpointer = result_pointer^>next) 
for (casejpointer = result jpointer^casejiead; casejpointer ^ NULL; 
casejpointer = casejpointer^-next) 
findjnearestjmetrics(casejpointer^nnetrics, &iminimum_known_differences, 
h,minimum_association_coefficient, 

!kminimum_weighted_association_coefficient, &zmax_correlation_coefficient, 
&zmax_weighted_correlation_coefficient, ->areajpointer^inftnite_weight); 



reporter. c 211 



subheading = "Distance u measures"; 

nearest_known_case_pointer = 

areajpointer^>nearestjresult—>nearest_known_case; 
nearest_unknown_case_pointer = 

area_pointer^nearestjresult—>nearest_unknown_case; 

for (resultjpointer = area_pointer—>result_head; result_pointer ^ NULL] 
result_pointer = resultjpointer^next) 
for (casejpointer = result jpointer^>case_head; casejpointer ^ NULL] 
casejpointer = casejpointer^-next) 
log_case_ifjnecessary(log_stream, resultjpointer, area_pointer^>nearestjresult, 
case_pointer, &inearest_known_casejpointer, 
& nearest janknown_casejpointer, level, 
casejpointer— ^metrics. number_of_known_differences = 
minimum_known_differences, 
Sheading, & subheading, NULL); 
if (subheading = NULL) 
fprintf (log_stream, "\n"); 

subheading = "Association u coef f icients" ; 

nearest_known_case_pointer = 

area_pointer^nearest_result-^nearest_known_case; 
nearest_unknown_case_pointer = 

area_pointer—>nearestjresult^>-nearestjunknown_case; 

for (resultjpointer = area_pointer^result_head; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) 
for (casejpointer = resultjpointer— >case_head; casejpointer =/= NULL; 
casejpointer = casejpointer^-next) 
log_case_ifjnecessary(log_stream, resultjpointer, area_pointer^>nearestjresult, 
casejpointer, &inearest_known_casejpointer, 
& nearest junknown_casejpointer, level, 
Is_Equal((floatingjpoint) casejpointer^* 

metrics, number _of_known_differences / 
case_pointer^metrics.number_of_knownjpairs, 
minimum_association_coefficient, Precision) , 
Sheading, Iksubheading, NULL); 
if (subheading = NULL) 
fprintf (log _stream, "\n"); 
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if {->area_pointer^>-inftnitejweight) { 

/* none of the weights is infinite, so the values obtained for the weighted association 
coefficients are meaningful */ 

subheading = "Weighted u association u coef f icients"; 

nearest_known_case_pointer = 

areajpointer^>nearestjresult-^nearest_known_case; 
nearest_unknown_case_pointer = 

area_pointer—>nearestjresult-^nearestjunknown_case; 

for {resultjpointer = area_pointer^>result_head; result_pointer ^ NULL] 
resultjpointer = result_pointer^next) 
for {casejpointer = resultjpointer— >case_head; casejpointer ^ NULL] 
case_pointer = casejpointer^>next) 
log_case_ifjnecessary(log_stream, resultjpointer, areajpointer^nearestjresult, 
casejpointer, & nearest_known_casejpointer, 
& nearest junknown_case_pointer, level, 
Is_Equal{casejpointer^>metrics.weighted_association_coefficient, 

minimumjweighted_association_coefficient, Precision) , 
Sheading, & subheading, k,weighted_differentjresult); 
if {subheading = NULL) 
fprintf (log_stream, "\n"); 

} 

subheading = "Correlation u coef f icients" ; 

nearest_known_casejpointer = 

areajpointer^nearest_result-^nearest_known_case; 
nearestjunknown_casejpointer = 

areajpointer^nearest_result-^nearestj±nknown_case; 

for (resultjpointer = area_pointer—>result_head; resultjpointer =/= NULL; 
resultjpointer = resultjpointer^-next) 
for {casejpointer = result jpointer^casejiead; casejpointer ^ NULL; 
casejpointer = casejpointer^-next) 
if (-icasejpointer^fmetrics.correlation_coefficient.meaningless) 

log_case_ifjnecessary(log_stream, resultjpointer, areajpointer^nearestjresult, 
casejpointer, & nearest_known_casejpointer, 
& nearest junknown_case_pointer, level, 
Is_Equal(max_correlation_coefficient, 

casejpointer^>metrics.correlation_coefficient.unweighted, 
Precision) , 
Sheading, Iksubheading, NULL); 
if (subheading = NULL) 
fprintf (log _stream, "\n"); 
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subheading = "Weighted u correlation u coef f icients" ; 

nearest_known_case_pointer = 

areajpointer^nearestjresult^>nearest_known_case; 
nearest_unknown_case_pointer = 

area_pointer—>nearestjresult—>nearest_unknown_case; 

for (resultjpointer = areajpointer^result_head; result_pointer ^ NULL] 
result_pointer = resultjpointer^next) 
for (casejpointer = result jpointer^>case_head; casejpointer ^ NULL] 
casejpointer = casejpointer^next) 
if (-icase_pointer^metrics.correlation_coefficient.meaningless) 

log_case_ifjnecessary(log_stream, result_pointer, areajpointer^nearestjresult, 
casejpointer, & nearest_known_casejpointer, 
& nearest ji±nknown_casejpointer, level, 
Is_Equal(maxjweighted_correlation_coefficient, 

case_pointer^metrics.correlation_coefftcient.weighted, Precision), 
Sheading, & subheading, lkweighted_differentjresult); 
if (subheading = NULL) 
fprintf (log_stream, "\n"); 

subheading = "Ideal u points"; 

for (equidistantjpointer = areajpointer^-nearestjidealjpoint; equidistantjpointer ^ NULL; 
equidistantjpointer = equidistantjpointer— >equidistant_ideal_pointjnext) 
if (equidistantjpointer ^ areajpointer^nearestjresult) { 
if (heading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s : \n\n", heading); 

heading = NULL; 

} 

if (subheading =/= NULL) { 

Indent(log_stream, level + 1); 

fprintf (log_stream, "°/ s : \n", subheading); 

subheading = NULL; 

} 

Indent(log_stream, level + 2); 

fprintf (log _stream, "%s\n", equidistant jpointer^identifier); 

if (area_pointer^>-nearestjresult—>nearest_known_case =/= NULL) 

if (Relative_Distance(equidistantjpointer—>idealjpointjmetrics. distance, 
areajpointer—>nearestjresult^nearest_known_case^- 
metrics. distance) ^ FURTHER) 
ideal jpoint_differentjresult = TRUE; 
if (area_pointer—>nearestjresult-^nearestjunknown_case =/= NULL) 

if (Relative_Distance(equidistantjpointer^idealjpoint_metrics. distance, 
areajpointer^>nearestjresult—>nearest_unknown_case—> 
metrics. distance) ^ FURTHER) 
ideal jpoint_differentjresult = TRUE; 

^ } 
if (subheading = NULL) 
fprintf (log _stream, "\n"); 
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subheading = "Centroids"; 

for (equidistantjpointer = area_pointer—>nearest_centroid; equidistantjpointer ^ NULL] 
equidistant_pointer = equidistant jpointer^equidistant_centroidjnext) 
if (equidistantjpointer =/= areajpointer^nearestjresult) { 
if (heading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s : \n\n", heading)] 

heading = NULL; 

} 

if (subheading =/= NULL) { 

Indent(log_stream, level + 1); 

fprintf (log_stream, "°/,s : \n", subheading)] 

subheading = NULL] 

} 

Indent(log_stream, level + 2); 

fprintf (log jstream, "%s\n", equidistant jpointer^identifier); 

if (areajpointer^nearest_result—>nearest_known_case =/= NULL) 

if (Relative_Distance(equidistantjpointer—>centroid_metrics. distance, 
area_pointer^nearest_result-^nearest_known_case-^r 
metrics. distance) ^ FURTHER) 
centroid_different_result = TRUE] 
if (area_pointer—>nearest_result-^nearestjunknown_case =/= NULL) 

if (Relative_Distance(equidistantjpointer^centroid_metrics. distance, 
area_pointer^nearest_result-^nearest_uriknown_case-^> 
metrics. distance) ^ FURTHER) 
centroid_different_result = TRUE; 

} 
if (subheading = NULL) 

fprintf (log _stream, "\n"); 

subheading = "Specif ied u directions" ; 

for (equidistantjpointer = area_pointer^strongest_specified_direction; 
equidistantjpointer ^ NULL; 

equidistantjpointer = equidistantjpointer^>equidistant_specified_direction_next) 
if (equidistantjpointer ^ areajpointer^>nearest_result) { 
if (heading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s : \n\n", heading); 

heading = NULL; 

} 

if (subheading =/= NULL) { 

Indent(log_stream, level + 1); 

fprintf (log_stream, "°/ s : \n", subheading); 

subheading = NULL; 

} 

Indent(log_stream, level + 2); 

fprintf (log jstream, "%s\n", equidistant jpointer^identifier); 

specified_direction_differentjresult = TRUE; 

} 
if (subheading = NULL) 

fprintf (log _stream, "\n"); 
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subheading = "Ideal u point u directioiis"; 

for (equidistantjpointer = areajpointer^>strongest_idealjpoint_direction; 
equidistant_pointer =/= NULL; 

equidistant_pointer = equidistant jpointer^equidistant_idealjpoint_direction_next) 
if (equidistantjpointer =/= areajpointer^nearestjresult) { 
if (heading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s : \n\n", heading); 

heading = NULL; 

} 

if (subheading =/= NULL) { 

Indent(log_stream, level + 1); 

fprintf (log_stream, "%s : \n", subheading); 

subheading = NULL; 

} 

Indent(log_stream, level + 2); 

fprintf (log _stream 1 "%s\n", equidistantjpointer^fidentifier); 

} 
if (subheading = NULL) 
fprintf (log_stream, "\n"); 

subheading = "Centroid u directions" ; 

for (equidistant .pointer = areajpointer^strongest_centroid_direction; 
equidistantjpointer ^ NULL; 

equidistantjpointer = equidistant jpointer^equidistant_centroid_direction_next) 
if (equidistantjpointer ^ areajpointer^nearestjresult) { 
if (heading ^ NULL) { 

Indent(log_stream, level); 

fprintf (log_stream, "°/ s : \n\n", heading); 

heading = NULL; 

} 

if (subheading =/= NULL) { 

Indent(log_stream, level + 1); 

fprintf (log_stream, "°/ s : \n", subheading); 

subheading = NULL; 

} 

Indent(log_stream, level + 2); 

fprintf (log _stream 1 "%s\n", equidistantjpointer^fidentifier); 

} 
if (subheading = NULL) 

fprintf (log_stream, "\n"); 
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/* issue warnings if necessary */ 

if (weighted_different_result) 
warning ( log_stream, 

"one u or u both u of uthe u weighted u saf eguard u metrics u suggest u " 
"that u a u case u (or u cases) u withua u dif f erent u result u should u " 
"be u the u nearestuneighbour u (or u neighbours) " , level); 

if (ideal_point_different_result) { 

sprintf (message, 

"one u or u niore u ideal u points u with u audif f erent u result u are u at u " 
"least u as u near u to u the u /oS u case u as u is u the u nearest u neighbour" , 
instant_case_type) ; 

warning (log_stream, message, level); 

} 

if (centroid_different_result) { 

sprintf (message, 

"one u or u niore u centroids u with u a u dif f erent u result u are u at u " 
"least u as u near u to u the u /oS u case u asuis u the u nearest u neighbour" , 
instant_case_type) ; 

warning (log_stream, message, level); 

} 

if (specified_direction_different_result) 
warning ( log_stream, 

"the u specif ied u directions u suggest u a u dif f erent u result u or u results" . 

level); 



extern void 

Write_Report( 

file report_stream, 

file log_stream, 

area *area_pointer, 

vector ^element *facts_head, 

vector '.element * original _facts, 

boolean verbose, 

boolean hypothetical, 

boolean same_result, 

cardinal number, 

cardinal level) 

/* Writes SHYSTER'S legal opinion about the facts pointed to by factsjiead to report_stream 
(if it is not NULL). Cases are summarized in full, and opening and closing strings are 
written in full, if verbose is TRUE. 

If number is not zero then the instant case is actually a hypothetical (if hypothetical is 
TRUE) or an instantiation, and number is its number. If the instant case is an instantiation 
or a hypothetical, originaljacts points to the facts of the uninstantiated and unhypothesized 
instant case. If the instant case is a hypothetical and same_result is TRUE, the hypothetical 
has the same result as the unhypothesized instant case. */ 
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result *result_pointer; 
kase *case_pointer, 

*nearest_neighbour; 
string instant_case_type ; 

if (number = 0) { 

/* the instant case is the uninstantiated and unhypothesized instant case */ 

instant_case_type = "instant"; 

if (report_stream =/= NULL) { 

fprintf (report_stream, "°/os{%s u area}\n\n" 
"°/ s{Instant u case}\n\n", 
Heading, area_pointer^identifter, Subheading); 

/* write the opening string */ 

if (area_pointer—>opening =/= NULL) { 
if (verbose) 

Write(report_stream, area_pointer—>opening, "\n", Top_Level, Hang); 
else 

Write (report_stream, " [Opening.] ", "\n", Top_Level, Hang); 
fprintf (report _stream 1 "%s u ", Skip); 

} 

/* write the facts of the instant case */ 

fprintf (report_stream, " In u the u instant u case , \n" ) ; 
list_facts(report_stream,facts_head, area_pointer^attribute_head, 
area_pointer^>number_of_attributes); 

fprintf (report_stream, "\n7oS u In u myuopinion", Skip); 

} 
} else if (-^hypothetical) { 

/* the instant case is instantiation number */ 

instant_case_type = "instantiated"; 

if (report_stream =/= NULL) { 

fprintf (report_stream, "°/os{Instantiation u / u}\n\n", Subheading, number); 
fprintf (report_stream, 

"It u may u be u that u the u f ollowing u is u true u of u the u instant u case : \n"); 
list_new_differences(report_stream, factsjiead, originaljacts, 

area _pointer—> attribute _head, 

number _of_differences(f acts _head, originaljacts)); 

fprintf (report_stream, "\n°/ s u If uthat u is u so u then u in u my u opinion" , Skip); 
} 
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} else { 

/* the instant case is hypothetical number */ 

instant_case_type = "hypothetical"; 

if (report_stream =/= NULL) { 

fprintf (report_stream, "y o s{Hypothetical u °/ou}\ii\n", Subheading, number); 
fprintf (report_stream, "Consider u the u instant u case u chaiiged u " 

"so u that u the u f ollowing u is u true :\n"); 
list_new_differences(report_stream, factsjiead, originaljacts, 

area_pointer^attribute_head, 

number _of_differences(f acts Jiead, originaljacts))] 

if (same_result) 

/* this hypothetical has the same result as does the instant case */ 

fprintf ( report _stream, 

"\n°/ s u If u that u were u so u thenuIuWouldube u " 
"more u strongly u of u the\n" 
" opinion u that " , Skip) ; 

else 

/* this hypothetical has a different result to that of the instant case */ 

fprintf ( report _stream, 

"\n°/ s u If u that u wereuSo u then u niy u opinion u would u be\ri" 
"that", Skip); 
} 

} 

Indent(log_stream, level); 

fprintf (log _str earn, "Nearest u neighbours : \n\n"); 

Indent(log_stream, level + 1); 

fprintf (log _str earn, "°/ s : \n" , area_pointer—>nearest_result^>identifier) ; 

if (area_pointer—>nearest_result^>-nearest_known_compared_with_unknown =/= FURTHER) { 

/* the nearest known neighbour is the nearest neighbour (although there may be an 
equidistant case with an unknown distance) */ 

nearest ^neighbour = area_pointer^nearest_result-^>nearest_known_case ; 

/* for every nearest known case with this result ... */ 

for (casejpointer = area_pointer—>nearest_result-^nearest_known_case; 
casejpointer ^ NULL] 
casejpointer = case_pointer^>equidistant_known_next) { 

/* log the case (a nearest known neighbour) */ 

Indent(log_stream, level + 2); 
log_case_number_and_name(log_stream, case_pointer—>number, 

casejpointer— > short jname) ; 
if (Is_Zero_Subdistance(case_pointer—>metrics. distance. known)) 

fprintf (log_stream, " u (identical) "); 
fprintf (log _stream, "\n"); 

} 
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if (has_less_known_distance(areajpointer^fnearest_result-^nearest_unknown_case, 
area_pointer^nearest_result-^nearest_known_case)) 

/* if not for its unknown distance, the nearest unknown neighbour would be the 
nearest neighbour, so for every nearest unknown case with this result ... */ 

for (casejpointer = area_pointer^nearest_result-^nearestju,nknown_case; 
casejpointer ^ NULL] 
case_pointer = case_pointer^>equidistant_unknownjnext) { 

/* log the case (a nearest unknown neighbour) */ 

Indent(log_stream, level + 2); 
log_casejnumber_andjname(log_stream, case_pointer—>number, 

casejpointer^ short jname) ; 
fprintf (log_stream, "\n"); 

} else 

/* the nearest unknown neighbours should be ignored */ 

area_pointer—>nearestjresult—>nearest_unknown_case = NULL; 

fprintf (log _stream, "\n"); 

if (report_stream ^ NULL) 

handlejnearestjknown(report_stream, areajpointer^-nearestjresult, 
area_pointer—>nearestjresult, nearest_neighbour 1 
areajpointer, factsjiead, instant_case_type, verbose); 

} else { 

/* the nearest unknown neighbour is the nearest neighbour */ 

nearest jneighbour = areajpointer^nearest_result-^nearestjunknown_case; 

/* for every nearest unknown case with this result ... */ 

for (casejpointer = area_pointer^nearestjresult-^nearest_unknown_case; 
casejpointer ^ NULL; 
casejpointer = casejpointer^equidistantjunknownjnext) { 

/* log the case (a nearest unknown neighbour) */ 

Indent(log_stream, level + 2); 
log_casejnumber_andjname(log_stream, case_pointer—>number, 

casejpointer—* short jname) ; 
fprintf (log _str earn, "\n"); 

} 
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/* for every nearest known case with this result ... */ 

for (casejpointer = area_pointer^nearest_result-^nearest_known_case; 
casejpointer ^ NULL] 
casejpointer = casejpointer^>equidistant_known_next) { 

/* log the case (a nearest known neighbour) */ 

Indent(log_stream, level + 2); 
log_case_number_andjname(log_stream, casejpointer— ^number, 

casejpointer^ short jname) ; 
fprintf (log_stream, "\n"); 

} 

fprintf (log _stream, "\n"); 

if (report_stream =/= NULL) 

handle_nearestjunknown(report_stream, area_pointer^>nearest_result, 
areajpointer, facts_head, instant_case_type, verbose); 

} 

Indent(log_stream, level); 

fprintf (log_stream, "Nearest u others : \n\n"); 

for (resultjpointer = areajpointer^resultjiead; resultjpointer ^ NULL; 
resultjpointer = resultjpointer^next) 

/* for every result ... */ 

if (resultjpointer ^ areajpointer^nearestjresult) { 

/* this result is not the nearest result */ 

Indent(log_stream, level + 1); 

fprintf (log _stream, "°/ s:\n", resultjpointer ^identifier); 

if ((resultjpointer^>nearest_known_case ^ NULL) V 

(result _pointer^nearest_unknown_case =/= NULL)) { 

/* this result has a nearest case (i.e. it has at least one case) */ 

if ((result_pointer—>nearest_known_comparedjwithjunknown = FURTHER) V 
has_less_known_distance(resultjpointer^>-nearestjunknown_case, 
nearest jneighbour)) 

/* the nearest unknown other is the nearest other or, if not for its unknown 
distance, the nearest unknown other would be the nearest neighbour, so 
for every nearest unknown case with this result ... */ 

for (casejpointer = resultjpointer^>nearest_unknown_case; 
casejpointer =/= NULL; 
casejpointer = casejpointer— >equidistant_unknown_next) { 

/* log the case (a nearest unknown other) */ 

Indent(log_stream, level + 2); 
log_case_number_andjname(log_stream, casejpointer— mumber, 

casejpointer—* short jname) ; 
fprintf (log_stream, "\n"); 
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/* for every nearest known case with this result ... */ 

for (casejpointer = result jpointer^*nearest_known_case; 
casejpointer ^ NULL] 
casejpointer = casejpointer^>equidistant_knownjnext) { 

/* log the case (a nearest known other) */ 

Indent(log_stream, level + 2); 
log_casejnumber_andjname(log_stream, casejpointer^number, 

casejpointer— >shortjname); 
fprintf (log_stream, "\n"); 

} 

if (report_stream ^ NULL) 

handle _nearest_others(report_stream, result jpointer, 

areajpointer^nearestjresult, nearest_neighbour, 

area_pointer^>nearestjresult-^> 

nearest_known_compared_with_unknown =/= FURTHER, 

area_pointer, facts_head, instant_case_type, verbose); 

} 

fprintf (log _stream, "\n"); 

} 
implement_safeguards(log_stream, areajpointer, instant_case_type, level); 

/* log the nearest result */ 

Indent(log_stream, level — 1); 

fprintf (log_stream, "Nearest u result u f or u "); 

if (number = 0) 

/* this is the unhypothesized, uninstantiated instant case */ 

fprintf (log _stream, "the u instarit u case"); 
else if (-i hypothetical) 

/* this is an instantiation */ 

fprintf (log_stream, "in.stan.tiation u / u", number); 
else 

/* this is a hypothetical */ 

fprintf (log_stream, "hypothetical u °/oU", number); 
fprintf (log_stream, " u is u / s . \n\n" , area_pointer^>nearestjresult—>identifier) ; 
if ((report_stream =/= NULL) A (number = 0) A (areajpointer^ closing ^ NULL)) { 

/* write the closing string */ 

fprintf (report_stream, "°/os\n", Skip); 
if (verbose) 

Write(report_stream, areajpointer^* do sing, "\n", Top_Level, Hang); 
else 

Write (report_stream, " [Closing.] ", "\n", Top_Level, Hang); 
} 
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All of the identifiers which appear in the code listings in this report, and which 
are not reserved words or preprocessor commands, are listed below. 

Function names are followed by a pair of parentheses. The names of SHYSTER'S 
defined types are marked with a star. 

SHYSTER's external identifiers are made up of upper- and lower-case letters; its 
static identifiers consist only of lower-case letters. Identifiers in all upper-case are 
enumerated identifiers and other constants. 

Page numbers set in boldface type refer to definitions of functions or constants, or 
to declarations of types or variables (including structure member declarations). 
Page numbers set in italics refer to function declarations. 

Where an identifier is defined in an ISO C standard library, the name of that 
library appears in angle brackets. 



actualjength: 55, 55-7 
add_to_directionJist(): 66, 70, 71, 73 
add_to_hypothetical_list(): 39, 40, 42 
add.to.identifier.list(): 67, 70, 72, 73 
add.weight(): 158, 162, 164, 166 
additional: 208, 208 
adjust: 12, 13, 16, 16, 17, 19, 20, 21, 30, 

44, 45, 145, 149, 149, 151, 151, 152, 

152, 153 
Adjust.Attributes(): 45, 137, 141 
adjust_result_weight(): 139, 142 
adjust.weight(): 138, 142 



adjustment.made: 138, 139, 139, 141, 
141, 142 

AlLDirections.Symbol: 24, 99 

alLknown: 37, 37, 38 

alLtfiree_equal(): 98, 98, 103 

all.to.be.written: 98, 98, 99 

allocated .length: 55, 55-7 

and: 180, 181, 182, 182, 183, 183 
* area: 28, 28, 29, 33, 37, 40, 43, 44, 78, 
80, 87, 90, 93, 99, 105, 111, 115, 120, 
124, 127, 130-2, 135, 137-9, 141, 145, 
152, 155, 169, 171, 174, 176, 179 
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* area (continued): 201-4, 210, 216 
areaiiead: 29, 33, 34, 44, 90, 90, 91, 

115, 125, 135 

areajdentifier: 20, 20, 21, 28, 30, 44, 
44, 45, 47, 48, 68, 69, 74, 107, 149 

area.pointer: 33, 34, 37, 38, 40, 41, 42, 
43, 43, 44, 44-6, 78, 78, 79, 80, 80, 
82, 87, 87-9, 90, 90, 93, 99, 100-4, 
105, 105, 106, 111, 112-14, 115, 
115, 120, 120, 121, 123, 124, 124, 
125, 127, 130, 130, 131, 131, 132, 
132, 133, 135, 135, 137, 138, 138, 

139, 140, 141, 142, 143, 145, 152, 

152, 155, 169, 169, 170, 171, 171-3, 
174, 174, 175, 176, 176-8, 179, 201, 
201, 202, 202, 203, 203, 204, 204-6, 
210, 210-15, 216, 217-21 

argc: 12, 12-15, 16, 16 
argument: 12, 12, 13, 15 
argv: 12, 12-15, 16, 16 

* attribute: 28, 28, 40, 68, 77, 80, 85, 107, 

112, 118, 120, 128, 130-2, 138, 139, 
147, 149, 151, 152, 161, 163, 165, 
166, 168, 169, 180, 185-8, 190 
attribute.head: 28, 46, 77, 77, 82, 88, 
89, 112, 114, 115, 121, 130, 131, 133, 
138, 140, 152, 169, 177, 178, 190, 
193, 201-6, 217, 218 
attribute_matrix_pointer: 77, 78 
attribute.next: 26, 59, 78, 119, 129 
attribute.number: 138, 138, 139, 139, 

140, 141, 141, 142, 149, 149, 150, 
151, 151 

attribute.pointer: 40, 40-2, 68, 68-74, 
77, 77, 78, 80, 82, 85, 85, 107, 
107-11, 112, 112-14, 128, 128, 129, 
130, 130, 131, 131, 132, 132 4, 138, 
138, 139, 139, 140, 147, 147, 148, 
149, 149, 150, 151, 151, 152, 152, 

153, 161, 161, 162, 163, 163, 164, 
165, 165, 166, 166, 167, 168, 168, 
169, 169, 170, 180, 180, 185, 185, 
186, 186, 187, 187, 188, 188, 189 

attribute_pointer_X: 118, 119, 120, 
121-4 



attribute.pointer.Y: 118, 118, 120, 122, 

123 
attribute_string: 112, 113, 114 
Attribute_Value(): 29, 32, 129, 159, 160, 

165, 166 
attribute.value: 26, 29, 32, 32, 35-8, 41, 

58, 59, 79, 84, 102-4, 113, 114, 119, 

129, 148-50, 161-6, 168-70, 180, 

184-9 

* attribute_value_type: 25, 26, 29, 32, 

158-60 
Attribute_Vector_Begin_Character: 25, 

60 
Attribute_Vector_End_Character: 25, 58 

Backslash_Character: 49, 56 
Big_A_Character: 25, 52, 146 
Big.Z.Character: 25, 52 

* boolean: 6, 6-8, 11, 12, 16, 19, 20, 

25-33, 37, 43, 44, 51-3, 55, 57-9, 68, 
75, 76, 78, 80, 85, 93-6, 98, 99, 105, 
111, 115, 117, 118, 120, 124, 127, 
128, 131, 135, 137-9, 141, 145, 147, 
149, 151, 152, 155, 161, 163, 166, 
174, 176, 179, 180, 182-4, 189, 190, 
194, 197, 201-8, 210, 216 

calculate_case_means(): 161, 162 
calculate_case_metrics(): 161, 177 
calculate_centroid_means(): 165, 166 
calculate_centroid_metrics(): 166, 178 
Calculate.Distances(): 38, 41, 43, 46, 

155, 176 
calculate_ideal_point_means(): 163, 164 
calculate_ideal_point_metrics(): 163, 178 
calculate_mean_and_centroids(): 128, 

130 
calculate_other_directions(): 169, 178 
calculate_probabilities(): 118, 122 
calcu late_resu It .weights (): 131, 135 
calculate_specified_directions(): 168, 178 
calculate_weights(): 130, 135 

* cardinal: 6, 6-8, 10, 12, 14, 16, 19, 20, 

25-8, 30, 37, 39, 40, 43, 44, 50-3, 55, 
57-9, 62-5, 68, 77, 80, 85, 87, 91, 93, 
98, 99, 111, 118, 120, 128, 130-2, 
137-9, 141, 145-7, 149, 151, 152, 155 
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* cardinal (continued): 156, 158, 161, 163, 

166, 169, 174, 176, 179, 180, 184-8, 
190, 194, 203, 205, 206, 208, 210, 216 

Carriage _Return_Character: 5, 9, 51, 52, 
59, 146, 147 

case.head: 27, 34, 46, 65, 76, 76-8, 80, 
83, 89, 102-4, 112, 129, 177, 210-13 

Case.Law(): 21, 30, 44, 149 

case.law: 16, 17, 19, 20, 21, 30, 33, 
33-5, 37, 38, 40, 41, 42, 43, 43, 44, 
44-6, 91, 91, 93, 115, 115, 111, 124, 
125, 121, 135, 135, 145, 149, 149, 

151, 151, 152, 152, 153, 155, 176, 
178 

* case_law_specification: 16, 19, 20, 29, 29, 

30, 33, 37, 40, 43, 44, 61, 91, 93, 115, 
117, 124, 127, 135, 145, 149, 151, 

152, 155, 176 
case_matrix_pointer: 77, 77, 78 
case_name: 208, 208 

case.next: 26, 58, 59, 77-9, 82, 84, 85, 
103, 113, 161, 162, 185-8 

case_number: 208, 208 

case.pointer: 44, 46, 76, 76, 77, 77, 80, 
80-3, 93, 99, 102, 103, 111, 111, 
112, 112, 113, 128, 129, 176, 177, 
189, 189, 190, 190-3, 201, 201, 202, 
202, 203, 203, 204, 205, 205, 206, 
207, 207, 208, 208, 209, 210, 
210-13, 217, 218-21 

case_pointer_X: 78, 78, 79, 194, 194 

case.pointer.Y: 78, 78-80, 194, 194 

centre: 95, 95, 96 

centroid.count: 132, 133 

centroid_different_result: 210, 214, 216 

centroid.direction: 27, 98, 99, 103, 170, 
173, 174, 176 

Centroid_Direction_Symbol: 24, 99 

* centroid.element: 26, 26, 27, 99, 128, 

129, 131, 132, 165, 166, 169 
centroidiiead: 27, 65, 102, 104, 105, 

129, 131, 133, 169, 172, 178 
centroid_matches_count: 169, 169, 170 
centroid_matching_result: 169, 170 
centroid_metrics: 27, 105, 172, 176, 178, 
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centroid.pointer: 99, 105, 128, 129, 131, 
131, 132, 132-4, 165, 165, 166, 166, 
167, 169, 169, 170 
centroid_to_be_written: 98, 98, 99 
ch: 7, 11, 11, 51, 51, 52, 52, 53, 53, 55, 
55, 56, 57, 57, 58, 58, 59, 59, 60, 

146, 146, 147 
changed: 76, 76 
Check_for_Attribute_Dependence(): 34, 

111, 124 
check_for_identical_cases(): 78, 89 
citation: 27, 81, 112, 113, 189, 191, 192, 

198, 199 
closing: 28, 88, 106, 221 
column_number: 50, 51, 51, 52, 52, 53, 

53, 55, 55, 56, 57, 57, 58, 58, 59, 59, 

60, 62 
Column_Separation: 24, 100, 133 
Comment_Character: 49, 60 
copy.facts(): 36, 36, 37, 39, 41 
Copyright_Message: 5, 11, 16 
correlate_pair(): 160, 162, 164 
correlation_coefficient: 26, 97, 157, 159, 

161-5, 167, 207, 212, 213 
correlation_coefficients: 28, 89, 96, 96, 

97, 100-5, 161, 162, 163, 164, 166, 

167, 177, 178 
correlation_pointer: 157, 157, 161, 161, 

163, 163, 165, 165 

* correlation.type: 25, 26, 157, 159, 161-6 
count: 7, 7, 8, 8, 9, 39, 39, 40, 40, 41, 

62, 63, 63, 64, 64, 65, 65, 66, 68, 
74, 77, 77, 80, 83, 85, 86, 98, 98, 
99, 99, 101, 103-5, 118, 119, 120, 
120, 121, 128, 128, 129, 130, 130, 
131, 131, 138, 138, 139, 140, 146, 

147, 147, 148, 152, 153, 169, 169, 
180, 180, 184, 184, 185, 185, 186, 
186, 187, 187, 188, 188, 189, 190, 
192, 193, 203, 203, 204, 205, 205 

* court: 28, 28, 29, 62-4, 80, 87, 90, 93, 

94, 99 
court.head: 29, 63, 63, 64, 87, 89, 90, 

90, 91, 93, 99, 100-5, 115, 178 
court.pointer: 62, 62, 63, 63, 64, 80, 81 
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court_pointer (continued): 82, 94, 94 
court.rank: 27, 75, 82, 103, 174, 175, 

196, 198 
court.string: 27, 75, 82, 103, 111, 174, 

195-9 
cross.link(): 77, 89 

details: 28, 50, 54-7, 59, 62, 64-7, 

69-74, 80-3, 85-91, 107-11, 148-50 
different.result: 208, 209 
different.results: 37, 38, 44, 46, 47 
digits: 57, 57 

* direction_list_element: 27, 27, 28, 66, 67, 

107, 168 
direction_list_pointer: 107, 108-10 
direction_pointer: 168, 168 
Disjunction.Symbol: 24, 108-10 
distance: 26, 42, 46, 95, 95, 96, 157-9, 
162, 164, 167, 171, 172, 177, 178, 
191, 194, 196, 203, 204, 213, 214, 218 
distance_pointer: 156, 156 
Distance_Precision: 23, 98, 157, 158, 194 

* distance_subtype: 25, 25, 27, 29, 31, 95, 

98, 156, 157 

* distance.type: 25, 26, 29, 31, 39, 40, 44, 

155, 156, 158 
distancesjilename: 12, 13, 16, 16, 17, 

19, 20, 21, 30, 44, 45, 47, 145, 149, 

149, 151, 151, 152, 152, 153 
distances_stream: 37, 38, 43, 43, 44, 

45-7, 155, 176, 178 
dummy: 19, 20, 138, 139, 139, 140, 

141, 141, 142 
dumpjilename: 12, 13, 16, 16, 17, 29, 

33, 34 
Dump_Specification(): 34, 93, 115 
dump.stream: 33, 34, 93, 94, 94, 95, 

105, 106, 106, 107, 107 10, 111, 

111-14, 115, 115 

echo: 12, 13, 16, 16, 17, 19, 20, 21, 30, 
44, 45, 145, 147, 148, 149, 149, 151, 
151, 152, 152, 153 

empty: 58, 58, 59 

Empty.String: 5, 32, 89, 91, 95-7, 106, 
113, 123, 124, 134, 138, 190 



EOF (stdio): 17, 33-5, 47, 48, 51, 52, 56, 

57, 59, 60, 139-43, 146, 147 

eof: 51, 51, 53, 53, 55, 55, 56, 57, 57, 

58, 58, 59, 59, 60 
Equals.Character: 49, 60 
EQUIDISTANT: 25, 157, 158, 172, 173, 

177, 178 
equidistant_centroid_direction_next: 27, 

173, 215 
equidistant_centroid_next: 27, 172, 214 
equidistant_ideal_point_direction_next: 

27, 173, 215 
equidistant_ideal_point_next: 27, 172, 

213 
equidistant_known_next: 27, 177, 181-4, 

202-4, 206, 207, 218, 220, 221 
equidistant_next: 27, 171, 172, 174, 178 
equidistant_pointer: 171, 172, 173, 176, 

177, 210, 213-15 
equidistant_specified_direction_next: 27, 

173, 214 
equidistant_unknown_next: 27, 177, 181, 

182, 184, 201-5, 207, 219, 220 
equivalencejxmction: 118, 118, 119, 

120, 122, 123 
error.exit(): 12, 13-17, 30, 33-6, 39, 44, 

45, 47, 48, 51, 52, 53, 55-60, 61, 

62-74, 80-91, 117, 122, 128, 129, 

131, 137, 139-43, 146, 150, 151, 

156, 176 
exitQ (stdlib): 10, 12 
EXIT_FAILURE(stdlib): 10, 12 
EXIT.SUCCESS (stdlib): 17 
external: 28, 69-73, 107-10, 149, 150 
External_Area_Symbol: 24, 107 
externaLattribute: 28, 69, 70, 72-4, 

107-11, 151 
* external_attribute_type: 28, 28 
ExternaLResult.Symbol: 24, 108-10 

fabs() (math): 32 

factorial): 118, 118-20 

facts.head: 37, 38, 40, 40-2, 43, 43, 44, 
45, 46, 93, 99, 100-5, 152, 152, 153, 
155, 176, 177, 178, 119, 190, 192 
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factsjiead (continued): 193, 201, 201, 
202, 202, 203, 203, 204, 204-6, 216, 
217-21 

FALSE: 6, 8, 15, 16, 32, 38, 46, 59, 68, 
69, 75, 76, 79, 80, 85, 89, 94, 96, 99, 
115, 119, 128, 129, 131, 135, 139, 
141, 148, 149, 157, 162, 164, 174, 
175, 183, 184, 200-7, 209, 210 

fclose() (stdio): 17, 33-5, 47, 48, 143 

FILE(stdio): 6 

* file: 6, 6-8, 10, 11, 16, 19, 20, 29, 30, 32, 

33, 35-7, 39, 40, 43, 44, 50-3, 55, 
57-9, 61-8, 78, 80, 84, 85, 87, 90, 91, 
93-6, 98, 99, 105-7, 111, 115, 117, 
118, 120, 124, 127, 128, 130-2, 135, 
137-9, 141, 145-7, 149, 151, 152, 155, 
156, 158, 161, 163, 166, 174, 176, 
179, 180, 182-90, 194, 195, 197, 
201-4, 208, 210, 216 
filename: 16, 16, 17, 33, 33-5, 44, 45, 

47, 48, 141, 142, 143 
find_nearest_and_strongest(): 171, 178 
find_nearest_metrics(): 206, 210 
finite: 25, 31, 95, 96, 98, 128, 130, 132, 
134, 138, 139, 141, 156-60, 162, 
164-8, 170, 194 
first.result.row: 98, 98, 99, 99, 102-5 

• floating.point: 6, 25, 26, 28, 29, 31, 32, 

97, 118, 120, 128-31, 138, 139, 159, 
160, 162, 164-7, 206, 207, 210, 211 

Floating.Point.Format: 23, 32 

floor () (math): 31, 32 

fopen() (stdio): 16, 33-5, 45, 142 

Form.Feed.Character: 49, 52 

found: 68, 70, 71, 73, 80, 82, 83, 85, 86, 
149, 149, 150 

fprintf: 6 

fprintf() (stdio): 7-9, 11, 12, 16, 17, 20, 
21, 32-8, 43, 45, 47, 87-9, 91, 
94-115, 120-4, 133-5, 138-43, 
146-50, 178, 181-4, 189-205, 208, 
209, 211-15, 217-21 

free: 6 

free() (stdlib): 36, 40, 84, 151 

fscanf() (stdio): 139-42 

fulLmessage: 10, 10, 51, 51, 62, 62 



functional.dependence: 26, 122-4 
FunctionaLDependence.Symbol: 24, 123 
FURTHER: 25, 41, 42, 46, 157, 158, 171, 

173, 174, 178, 205, 213, 214, 218, 

220, 221 

get_attribute_vector(): 58, 60 
get_char(): 51, 53, 55-60 
get_external_fact(): 149, 151 
get.fact(): 151, 152, 153 
Get.Facts(): 45, 1^5, 152 
get_keyword_or_ident(): 53, 60 
get.local.fact(): 147, 151 
Get_Option(): 138, 140, 142, 145, 146, 

148 
get_string(): 55, 60 
Get.Token(): 50, 59, 62-5, 69-74, 80-3, 

85-91 
get_year(): 57, 60 
getc() (stdio): 51, 146, 147 
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